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1.0 INTRODUCTION 
1.1 ABSTRACT 
TI TS A STAND ALONE PROGRAM WHICH 
Se stem FUNCTIONS. Te oy VERIFY OPERABILITY OF THE RMOZ DISK 
SUBSYSTEM. IN PARTICULAR, PROGRAM SERVES THE FOLLOWING PURPOSES: 


TO amas ESTABLISH Seen IN THE BASIC ves OF THE 
DISK TIONS, VE, INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE ODRIVE/ADAPTER 
ELECTRICAL I ACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMO3 SUBSYSTEM, INCLUDING THE 
CONTROLLER, MASSSUS ADAPTER AND THE DISK DRIVE: 


sect TALS hel oes Be aE 
Bree Urea Beene ARATE ok We rein 


* * 
# NOTE: 2 AND 3 OF THE FUNCTIONAL TEST LEAVE 
7 io jo MR PACK SHOULD BE . 
+ : * 
Pr £% 





REFORMAT RUNNING THESE TESTS 
JHHHHHHHHHIHHHIHHHHHHHHHHHHHIHHHIHHH HHH HEHEHE 


1.2 UNIT UNDER TEST 
THE UNIT UNDER TEST (UUT) IS THE RMO3 OISK SUBSYSTEM WHICH 
CONSISTS OF THE RHXX MASSBUS CONTROLLER , THE MASSBUS TER 


AND THE STORAGE MODULE DISK DRIVE. NOTE THAT 
FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10 BE 
Pe ban test: is REQUIRED TO LOAD AND EXECUTE THE RMO3 SUBSYSTEM 


PDP-11 PROCESSOR 


Ba Sh he ee 
BBBVFRIEV 
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Kiet TOR KW11-P CLOCK 
foes OADING DEVICE 


Bilt SoBN”yegpeTILE 


WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS, DISK 
DRIVES AND DISK PACKS. 


seapasmsmaaaaaaes af 


pe a ee ee 
WONT CWO 


ruruvrurururururoror 


FATS SLOP R EERE SSNS 
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2.2 MEDIA REQUIREMENTS 


Berone TESTING BEGINS "ON MTHeT™ UNIT THE Pax 


WILL BE BE RITTER DURING NONE pe all 


2.3 


3.0 
3.1 


3.2 


NOTE 
WHEN THE PROGRAM vin TH THE . 
DRIVE O IS NO ote 
OPERATOR SPECIFICALL ume SS RIVE 
NUMBER DURING CONSOLE DI SIAL OGUE. 


PREREQUISITE DIAGNOSTIC PROGRAMS 


RMO3 DISKLESS DIAGNOSTIC, DZRMJ-A 


OPERATING PROCEDURE 
LOADING 


THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
. PAPER TAPE, USING THE STANL. 8D PAPER TAPE LOADING PROCEDURE; 


-XXDP MEDIA, USING THE APPROPR:ATE LOADING DEVICE. 


NOTE 


WHEN THE PROGRAM IS LOADED VIA THE RMO3 

ORIVE O IS NOT TESTED UNLESS THE 
OBE RATOR SPECIFICALLY ENTERS THE DRIVE 
NUMBER DURING CONSOLE DIALOGUE. 


SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 


OF THE PR 


RAY. BF FORMAT 


NEEDED INF GRMAT ION N BECAUSE THE Teac 


SE@ 0009 


IO1 
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aul INHIBIT ERROR TYPEOUTS 
aii NHIBIT TEST ITERATIONS 
SW10  ©BELL ON ERROR 
SWOS_  =—- LOOP. ON Fear 
SWOS § LOOP ON TEST IN SWO7-00 
THE LOW ORDER 8 SWITCHES (SWO7-SWO0) USED IN CONJUNCTION WITH 
we: an SPECIFY THE OCTAL NUMBER or TH THE TEST WHICH THE PROGRAM WILL 
3.3 STARTING 
THE ores ARTS AT LOCATION 200, WHICH Pov ices, CASE 
yext CONDITI RUNNING IN AN AUTOMATIC ENVIRONMEN IF RUNNING IN 
A STAND-AL USES CONSOLE DIALOGUE TO ALLOW 


| 
ee 
$72 
ora 
ei 
579 
: 
es 
ze 
: 
: 
cs 


THE OPERATOR TO CONTROL TEST CONDITIONS. 


3.4 HALTING 
THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200. 


4.0 OPERATOR INTERFACE 


4.1 PROGRAM ID 

PROGRAM S ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. PROGRAM IDENTIFICATION DOES NOT OCCUR 
IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING wt. STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. 


T TION ere T IS: “TYPE HELP TEXT (CY N)??*, 
y THE He OPERAT oh RESPONDS ny on 1 aia WILL TYPE A BRIEF HELP 
MESSAGE WHCIH WILL LIST SWITCH oPTtons ETC. 
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Fie diaitd"oouk REHM OF te : 
oe SB Seine aN Ty he TS 

BOR. AELIR DOH Ole TT Eh Obl eB 
Gree he HDR LT He WS Bie COE ent NESE: OS 


INATE HIS INPUT WITH A CARRIAGE 
IF THE PROGRAM FI STION TYPED IS 
DEVICES (Y ‘oom tee op THE test 16 1S 


RESTARTED USING THE SAME fevices" AS THE LAS TIME TOTHERMISE = THE TEST 
RESTARTS THE DIALOGUE AS TES Te PROGRAR WERE STARTED FOR’ THE FIRST 


4.3 PROGRESS REPORTS 
OCCURS EACH TIME THE PROGRAM EXECUTED 


OF PASS REPORT 
FOR ALL ICES IN THE TEST QUE. THE END OF PASS REPOR SINELUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.4 PERFORMANCE REPORT 
NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 


4.5 PROGRAM HALTS 


my NO HALTS DURING THE EXECUTION OF THE PROGRAM. 
S DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


ACTUAL TEST RESULTS. 


SEQ 0012 
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5.0 ENVIRONMENTAL SUPPORT 
S.1 epee ats COMPATIBILITY 


PROCESSOR PRO ING. PReviOUSL MENTIONED HARDWARE REQUIREMENTS ARE 
beovibINe Tent Data ER OPERAT 
retain DATA IONS. 


5.2 DUAL PORT CONFIGURATIONS 


OA eed DOES_ NOT Y 
"PORT Procite THe mrs EP int IS aE cunts 


POPE Boal ee a 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO3 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMO3 SUSBYSTEN 
FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RMO3_SUSBYSTEM Pune TION, TEST IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. THER, THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO3 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP _ IN 
DUMP AND CHAIN MODES PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMO3 IS THE XXDP LOADING DEVICE. 
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41 5.7 OPERATING SYSTEM COMPATIBILITY 
417 THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 
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PAGE 9 
- 6.0 TEST DESCRIPTION 


423 


Uv} 


CONTROLLER ACCESS TEST 
PURPOSE : 


TO VERIFY THAT THE UNIBUS ADDRESS OF THE RMO3 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION SBASE. 


PROCEDURE : 
4 SFT IS dOaeeee Bore enhS ME lea nT 
Tie fest, ato Tie aoe TEST FALLS | A BUS TIMEOUT OCCURS FOR 


oe TEST FAILS. AND M3 PROGRAM 3 RHE RUNNING IN ® STAND 
LOCATION 4e IS WILL JUMP 


ENVIRONMENT 
Bear wit sip alae ovHERUISe, 1H THE Eocopee to 


DEVICE AVAILABLE TEST 
PURPOSE : 


TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING, 
AND IS NOT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT. 


CRF REERES SONAR OO ASE SERS GBS SB IOROO NEES CONE 


PROCEDURE: 
THIS TEST SELECTS THE DEVICE AND READS CONTROL STATUS 
REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE 
FOR TESTING, AS INDICATED BY DVA STATUS. BIT 11 OF RMCS1 AND NED 
STATUS, BIt 12 OF RMCS2. THE RESULTS OF THE TEST CAN VARY AS 
.NONEXISTANT DEVICE - THE DEVICE IS NONEXISTENT OR IS LOCKED . 
ue ON THE ALTERNATE AND IS THEREFORE NOT AVAILABLE FOR TESTING; ‘ 
470 


THE ACTEMRATE Bont Pub Te Nor HURTERLE FOR Tesfincl® SEIZED BY - 
.BUS TIMEOUT - THE MASSBUS CONTROLLER FAILED TO DETECT A 
mn ? §, 


££ 
ni 


3 
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NONEXISTENT DEVICE; 


SEQ 0016 


COe 
A PS et ee 


me 


Selene ROS SEMPRA OSS ORATOR Ta Ie 


QUOT UU UU 


Re ee ee 
WONOU CWO 


SEReS 
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-DEVICE AVAILABLE - THE DEVICE IS AVAILABLE FOR TESTING. 


NEXT DRIVE TO BE TESTED IF THE DEVICE IS NOT availa ee 


DRIVE TYPE TEST 
PURPOSE : 
TO VERIFY THAT THE UNIT UNDER TEST IS AN RMOZ3 SINGLE PORT OR 
PORT SUBSYSTEM. 


PROCEDURE : 
,. RMDT, OF THE 
SELECTED Ba tla AO VERIFIES. That THe OV <THE EVICE IS A INGLE of ORT 9 OR 
10 THE Tuebase S HANOLER WHICH WILL SELECT THE 


THEY PROGRAR 
NEXT DEVICE FOR a TESTING. 


WRITE/READ DATA TESTS 


PURPOSE : 
TO TEST WRITE DATA AND READ DATA FUNCTIONALITY OF THE RMO3 
SUBSYSTEM USING A SET OF VARIABLES WHICH INCLUDE WORD COUNT, HEAD 
MOTION, HEAD SWITCHING AND ERROR CONDITIONS. 
PROCEDURE : 
AL T A DIFFERENT VARIABLE, THE 
encn feet Is SAME. THE ORIVE I 


FRITIAC IZED OPEC RSTED IF PLE 08 “Skt=  OCTIVG 90 el 
THE E SECTOR BEING USED, WHICH MAY VARY FROM THE ’ PROGRAM LISTING, 


SECTOR is “Tstep IN ie Be BLOCK t 


ABLE . 
FOLLOW ORNS ANY EXPLICI us REQUIRED FOR 
THE CONDITIONS SOF THe TE fest. REGISTERS ARE PRESET AND fhe WRITE 


SEQ 0017 


FRLGSHS SOARES oe TO aa 


AS a Hab A apa dae te 


uu 
=o 


adotol soled 
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DATA COMMAND IS EXECUTED. WRITE COMMAND I 
ERRORS WilcH PRECLUDE. OTHER Bat Oey (eee 
Pare om ig 


WRITE, READ ZEROS 


THE TEST WRITES AND READS AN ALL ZEROS DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


WRITE, WRITE CHECK ZEROS 


THE TEST WRITES AND og | CHECKS AN ALL ZEROS DATA FIELD, 
VERIFYING THAT THERE ARE NO ERRORS. 


WRITE, WRITE CHECK ZEROS W/ WCE ERROR 


THE TEST WRITES AN ALL ZEROS DATA FIELD, THEN COMPLEMENTS 
THE T WORD OF THE WRITE BUFFER. WRITE CHECK COMMAND IS 
Tog dl THE TEST VERIFIES THAT THE CORRECT WRITE CHECK ERROR 


WRITE, READ ONES 


THE TEST WRITES AND READS AN ALL ONES DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


SEQ 0018 


PKKOKKOKK so 
ee 
WONMUIC WMO 


SER eB BORER PERE S 


BEURR EDR SES RR LON oe RTOS S aa 


vi 
— 
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WRITE, WRITE CHECK ONES 


THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD. 


WRITE, WRITE CHECK ONES W/ WCE ERROR 


THE TEST WRITES AN ALL_ONES DATA FIELD, THEN PERFORMS A 
WRITE CHECK DATA COMMAND AFTER COMPLEMENT THE LAST WORD OF THE 
WRITE BUFFER. THE TEST VERIFIES THAT THE CORRECT WRITE CHECK 
ERROR IS DETECTED. 


WRITE, WRITE CHECK MULTIPLE SECTORS 


THe TEST SEES TO CYL OT 
MOTION DURING DATA TRANSEER 
BETH THE BORD COUNT Ce Te eae 


aa 
be 
: 
: 


WRITE, WRITE CHECK WITH HEAD SWITCHING 


HOTTON-OURNG DATA TRAGER, THE WRITE Data COMmewD Stents WITH 
CrOR 31. COUNT IS EQUAL 10 


HW On CTORS Saree” TO SWITCH FROM TRACK 
ie Tl pF TER TH THE FIR romusee Te Stesrs IS WRITTEN. DATA 
COUNT AND STARTING SECTOR. 


WRITE, READ WITH IMPLICD SEEK 


THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO WRITING DATA 
ON CYLINDER 0, TRACK 1, SECTOR 1. THE EXPLICIT SEEK INSURES THAT 
THERE WILL BE’ mo HEAD MOTION DURING THE IMPLIED SEEK OF THE 

WRITE COMMAND. HE SAME OPERATION, INCLUDING THE EXPLICIT SEEK 


SEQ 0019 


FOe2 
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63S IS REPEATED FOR READ DATA. 
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WRITE, WRITE CHECK WITH MIDTRANSFER SEEK 


THIS TEST WRITES MULTIPLE SECTORS STARTING WITH em ieee 
TRACK 4, SECTOR 31, CAUSING A MIDTRANSFER SEEK AFTER T First 
SECTOR 1S WRITTEN. THE SAME SECTORS ARE READ WITH READ DATA 


WRITE, READ W/ HCE ERROR 


A SECTOR IS powers? WITH AN INCORRECT 
TEST WRITES AND te FROM THE SECTOR AND VERIFIES THAT THE 
CORRECT ERROR IS DETECTED. EACH BIT POSITION OF 
IS TESTED IN THIS MANNER. 


WRITE, READ W/ HCI 


A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN 
AND READ WITH HEADER COMPARE INHIBITED. THE TEST VERIFIES THAT 
NO ERROR IS DETECTED. 


WRITE, READ W/ IVC ERROR 
VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 


MODE. THE TEST THEN EXECUTES A WRITE DATA COMMAND AND VERIFIES 
Ho pat g COMMAND STATUS SETS. THE TEST IS REPEATED FOR READ 


WRITE, READ W/ BAI 


THE TEST WRITES A sna ES Peron WITH “BUS ADDRESS yy ge 
al A lo SET AND OE ite! ADDRESS REGISTER DOES NO 


INCRETENT. .1MG Soe ele vis, HTH AI” RESET AND THE TEST 


SEQ 0021 


SEIRREERSSSESRREOR LS | 


NNNNNNNNNNN 
he ee eh 
WONT CWO 
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WRITE, READ EACH CURRENT LEVEL 


m oath Stl BS, ON EACH OF THE FOLLOWING CYLINDERS 


TO WRIT IBLE CURRENT T 
CYLINDER 0 110 MA 
. 128 = 104 MA 
. 256 97 MA 
° 384 91 MA 
° S12 B4 MA 
. 640 77 MA 
" 768 70 MA 


WRITE, READ W/CURRENT LEVEL SWITCHING 


on neh SEL OUTS FARE CURL HION BF ceed tet 
CEeTORS BRE AND Heat Ye SERIF IES Ee THERE ARE NO ARE NO S. 


WRITE, READ EARLY PEAK SHIFT 


PATTERN DESIGNED TO. INTRODUCE EARLY PERK SHIFT. ON ORTR 


WRITE, READ MIXED PEAK SHIFT 


PATTERN BESTGNED TO INTRODUCE MINED PEAK SHIFT. 


SEQ 0022 


oo 


aI ae 


v1 
— 


RMO3 
1 
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WRITE, READ EACH TRACK 


THE TEST Eee! TEE BND FEROS ITF TH EACH HEAD USING A MIX OF 


WRITE, READ W/ ABORT 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES A 
WRITE DATA COMMAND VERIFYING re “PIP” REMAINS INACTIVE. THE 
SAME PROCEDURE IS USED FOR READ DATA COMMAND. 


SEQ 0023 


u 


BSHIRASERE BIS SINE GET : 


N 
0 
bo 


BRRESS 


>) 
8 


SeteRecnces 


DBOWOODOOOOo 
OF b= = b= B= Os 


ONOUW£SW-O 
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;PROGRAM REVISION #001 

- TITLE OZRMEA - RMO3 FUNCTIONAL TEST, PART 3 

;#COPYRIGHT (C) 1977 

; #DIGITAL EQUIPMENT CORP. 

j MAYNARD, MASS. 01754 

i SPROGRAM BY DOUG RIIKONEN 


i 
;%THIS PROGRAM WAS USING THE PDP-11 MAINDEC SYSMAC 
j HPRCKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


000001 $TN=1 
- SBTTL OPERATIONAL SWITCH SETTINGS 
ii SWITCH USE 
;* 1S HALT ON 
* 14 LOOP ON TEST 
«i 13 INHIBIT TYPEOUTS 
* 12 ENABLE EXTENDED STATUS 
1 11 INHIBIT ITERATIONS 
* 10 BELL ON ERROR 
;% 9 L ON 
ti 8 LOOP ON TEST IN SWR<7:0> 
7% 7 TN128 
;* 6 TN64 
3% S TN32 
3% 4 TN16 
;# 3 TNS 
3% 2 TN4 
;* l TNe 
;% 0 TN1 
"SBTTL BASIC DEFINITIONS 
-¥INITIAL ADDRESS OF THE STACK POINTER ### 1100 ### 
001100 STACK= 1100 
-EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV f0T| SCOPE BASIC DEFINITION OF SCOPE CALL 
- MISCELLANEOUS DEFINITIONS 
000011 T= Il ;;CODE FOR HORIZONTAL TAB 
900012 LF= 12 i § CODE FOR LINE FEED 
1S CR= 15 * FOR CARRIAGE RETURN 
CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 = 177776 :;PROCESSOR STAT 
177774 eFeUaY ee TACK LIM T 
177772 177772 + BROGRAR MT ERT REQUEST REGISTER 
177570 OSWR= 177570 ?:HARDWARE SWITCH REGISTER 
177570 DOISP= 177570 : :HARDWARE DISPLAY REGISTER 
-#GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= %0 .s REGISTER 
000001 Riz %1 ::GENERAL REGISTER 
po000ge Ro= %2 ::GENERAL REGISTER 


KOe 
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OZRMEA.P11 





ti O=-MUMTWMWwK 
ce, Se 
&, crerrrrr BS po 
eee) eee 
iconic dete 4 =i Se nn pose = re i 4 3 a 
; : g 
: : S9A5IN08 = 
puma 5. 08RRERR SSSeRiectvne,. SERIES = eeOaes 
senuces Eoeieepey UESSEeggauauasaieaeanass GUAAAS 
Feesce Eecgige bogeeeceuaceeece See 
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DOREA.PLI CSU? 148 BASIC DEFINI TLONS =e 
875 000100 BITO6= 100 
ar gooa29 Strona 3 
T 
es sie | 
Sa Hak 
a | 
“EQUIV 81103, 17s 
883 “EQUIV BIT08;BITS 
“EQUIV 107, 117 
“EQUIV "BITS 
“EQUIV *BITS 
“Eau vy BIT4 
age “EOUIY Bitbe' Bits 
890 “EQUIV BITO1;BITI 
iB “EQUIV BITO0;BITO 
C “CPU” TRAP VECTOR S 
ooo004 ERRUEES 4 R ORE OUT AND OTHER 
89S 000010 C= 10 :!RESERVED AND ILLEGAL INSTRUCTIONS 
es 14 ie C=14 s3"T” BIT 
14 TRIVEC= 14 $8 TRAP 
638 14 ber C= 14 : BREAKPOINT TRAP (BPT) 
OTVEC= 20 *:INPUT/OUTPUT TRAP (IOT) *#SCOPEX* 
300 D000 C= 24 :: POWER Fi 
1 000030 EMTVEC= 30 : : EMULATOR (EMT) #*ERROR## 
902 000034 = +: *TRAP™ 
303 000060 TKVEC= 60 :: TTY KEYBOARD VECTOR 
904 000064 TPVEC= 64 t: TTY PRINTER VECTOR 
oe 000240 PIRQVEC=240 ‘PROGRAM INTERRUPT REQUEST VECTOR 
307 .SBTTL RMO3 REGISTER BIT DEFINITIONS 
309 sRMCS1 CONTROL STATUS REGISTER 
11 004000 DvA - BIT11 DEVICE AVAILABLE-READ ONLY 
312 00049 FY s BITOS FUNCTION CODE 
81 F3 = BITO4 ‘FUNCTION CODE 
914 000010 Fe = BITOS : FUNCTION CODE 
1 000004 Fl = BITO2 * FUNCTION 
1 oo0002 FO = BITOL ‘FUNCTION CODE 
1 000001 GO = BITOO :G0 BIT 
318 000077 FNCMSK = 000077 ‘FUNCTION CODE MASK 
320 sFUNCTION CODES (BITS 01-0S OF RMCS1) 
. 000000 sNOP_ COMMAND 
ILFO2 = oo0002 ‘ILLEGAL COMMAND 
SEE s 000004 iSE COMRIAND 
= = fais pve = GOOG Delve CE Core 
328 een OFFSET = 000014 ‘OFFSET COMMAND 
000016 RTC = 000016 ‘RETURN TO CENTERLINE COMMAND 
$30 000020 RIP . 000020 ‘READ IN PRESET COMMAND 
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OZRMEA.P11  29-JUL-77 14:18 RMO3 REGISTER BIT DEFINITIONS 
ra PAKACK = SPACK ACKNOWLEDGE COMMAND 
Fe lee, : ILLeat Soret 
aud . 
tenace s 5 
$36 000030 ILE 30 2 : TLLEGAL 
es ue HER 
ILF3 = ;TLLEGAL COMMAND 
= +4 wv . | 
a Rie tee: HEE Sire 
943 ILFY“ = : 
guy n000SE rs ; BK DATA COMMAND 
4S 000052 HCH = sWRIT CK HEADER AND DATA 
au9 eres ILFS6 = * TLLEGAL 
a8 000060 WD = jMRITE DATA COMMAND 
000062 WH ne ;WRITE HEADER AND DATA COMMAND 
a1 Bppoee tree TESA COMMAND 
000070 RD = 5 DATA 
D000 it = if FERDER #0 ATA COMMAND 
BODO7E We tte % = ILLEGAL COMMAND 
307 ;RMDA DISK ADDRESS REGISTER 
29 ggeqn9 TAY = BIT10 TRACK ADDRESS 4 
1 TA2 = BITO9 : ADDRESS 2 
HNNO4Oo TAl s T 1 
ooh nooo20 SA16 = Bi Tbe ; CTOR 16 
SR Bo: te gee 
oe pone ss ORG ETOR OORESS 
266 1 I = T CTOR I 
368 s TRACK, SECTOR MASKS 
$70 003400 TADNSK = 003400 s TRACK ADDRESS MASK 
371 000037 SADMSK = 000037 ‘SECTOR ADDRESS MASK 
373 ;RMDS DRIVE STATUS REGISTER 
$75 ATA z T 3A T 
are bg0000 mm 6G oF ERROR” 
977 020000 PIP = BIT13 POSITIONING IN PROGRESS 
a8 Bo4000 + ee BIT RITE Locks 
980 002000 UBT = B1T10 LAST BLOCK TRANSFERRED 
= ae | ee 
984 000100 vv s BITOb ; VOLUME VALID 
38 000001 OM = BITOO ‘OFFSET MODE ACTIVE 


fs hs Po 


Fei teeta 


OoOeO00000 
OWODONwu£ wr 


Bs bh bs bt pe Bh 


== 
UN 


Re 


bot be Be Be Be ee Be = be te ee = ee eb 0 be eb he te 


BASSE ROR S SEU TO 
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Pll 29-JUL-77 14:18 RMO3 REGISTER BIT DEFINITIONS 
;RMER1 ERROR REGISTER #1 
100000 CK = BITIS ;DATA CHECK ERROR 
rand mY ; ETE 
004000 WLE . BITH SURITE ae 
Ife : BIT10 +1 ERROR 
= iT : ERROR 
Ss - 
: tT SHECOER COMPARE ERROR 
ECH = BITOS 7E ERROR 
= Atta WR FAILURE 
° iF 
= BITO2 PREG GISTER MODIFICATION REFUSED 
2 BIT ILLEGAL REGI 
= BIT *TLLEGAL FUNCTION 





Rha 1p vc ER EN EAR or 


HOUSEKEEPING AND POSITIONING 
arventicn SUMMARY REGISTER 


2 B28 SesBas 


000377 ATNMSK = 377 ;MASK FOR ATTENTION BITS 
;RMLA LOOK AHEAD REGISTER. 
SC4 = BIT10 ;SECTOR COUNT = 16 
po one SC3 = BITO9 ;SECTOR COUNT = 8 
SCe = BITOS ;SECTOR COUNT = 4 
000200 SCl = BIT07 ;SECTOR COUNT = 2 
000100 Sco = BITOb6 ;SECTOR COUNT = 1 
003700 SCTMSK = 003700 ;SECTOR COUNT MASK 


;RMMR MAINTENANCE REGISTER 


188 nn ee 
: ei ot TeaENee 

MRO 8 = BITIO : TA 

MUR : B1103 UNI Y 

rr ii Fd AULT 

MS : BITOS ‘SECTOR PULSE 

HAP = BIT03 jHRITE PROTECT 

MSC Os ato : SECTOR 

OMD Osis BITOO DIAGNOSTIC MODE 





o1 
9 
f: 


Dot he be bent po fe eee 


wees d data deal due st it Be 


ee ee ee ee me ee ee ee ee ee ae ee ee ee ee ee ae ee be Be ae ee be Be ee ee 


BIRREOR AS SEAR EDR Bsa Voll Sans 








FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 27 SEQ 0029 
29-JUL-77 14:18 RMO3 REGISTER BIT DEFINITI 
; READ ONLY BITS 
occ = T1S : I 
Arcee RG = erie + RORC A GO 
020000 EBL 2 BIT13 : BLOCK 
fer BIT hee gy 
E s Til ; SEARCH 
PLFS Ss = BITIO ‘LOOKING FOR SYNC 
001000 ECRC = BITO9 : CRC OUT 
ooveno .- Bes ig +O TOER AREA 
3 o 
I CONT = 110% ENT INUE 
EECC = Bt Tos : eee OUT 
00001 MWD = BITOS ‘WRITE DATA BIT 
aoe a Pe SeCTeryate TRACK 
een BRD - T ‘DI I MODE 
RMDT  ORIVE TYPE REGISTER 
NSA = BITIS NOT SECTOR ADORESSED=0 
TAP = i114 ‘TAPE ORIVE = 0 
MOH = T13 : MOVING =1 
RQ = BIT11 ‘DRIVE REQUEST REQUIRED 
SNGPRT = o20024 sSINGLE PORT DRIVE TYPE 
DULPRT = 024024 ‘DUAL PORT DRIVE TYPE 
;RMOF OFFSET REGISTER 
504000 “he BIT RO MIBT 
002000 cet = Btrto : INHIBIT 
000200 OFD z BIT : OFFSET FORWARD 
, DESIRED CYLINDER ADORESS REGISTER 
001777 aging, 2 rH sAAGK FOR CYLINDER ADDRESS 
SRMMR2 MAINTENANCE REGISTER #2 
, READ ONLY BITS ~~ 
icin Rye atria ‘PORT & RESUEST 
020000 TAG : BIT13 STAG CONTROL sagt 
004000 a = BtTiE + EONTROL vc mailirre: Tak 
CH s BITIO ‘CONTROL OR HEAD TAG 
BB09 = BITO9 :TAG BUS 
BBOE = Bitte ; TAG 
AE = T 3 TAG 
BB0B s«= BITOb ‘TAG BUS 
BB0OS == BITOS ‘TAG BUS 
BB04 sz BITO4 ‘TAG BUS 





SEQ 0030 


, PART 3 


-77 14:18 


simasel TEST 


-Pll 


eee 


;RMER2 ERROR REGISTER 2 


SECTOR ERROR 
~ Ss 


C 
OR 


i 


ea innnncnnnaats 


=e 
EEEEEEEEE 


fe get se | 





JERRON REGISTER 2 


ray SES 
SS ATS EET 
eee 
ya oe 


LaRajomsomonst 


SENAANANRMASS ST PRHNRBSOSRRAR 


gitts 
T14 
-SBTTL RMO3 REGISTER INDEX VALUES 


cocbesFeopeebreeesseeeeere® 


Od Od 4 4 Od 0 4 4 0 4 0 


USE 


;MASK FOR REGISTER INDEX NUMBER 


IDXMSK 





FSO ee SS STRASBURG BAB RBS Ss SST PPS OS RAR 


a a hh a hh td dt dd dt tt 
a hh a tt et tt 


a 


ba bo ba Be Be = be BB fe ba fe pe ee 


SoSUFERISR SSSA 


N“N 
Cs 


1D DMWWW Mw www a dd ad ad ddd Bs FO bh b= Bs bP ph he he 
—BIarIead Zan 


BEIKRLGGH SSBURRIGK 


bs Pe bs ps b= pe PS 


Belen Sones 


— 


ee Be 0 br be bb bP 0 0 0 bb Pb Pe 
Oo 


a 
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Pll  29-JUL-77 14:18 RH CONTROLLER REGISTER BIT DEFINITIONS 
.SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
sRMCS1 CONTROL STATUS REGISTER #1 
erred ite atti 
AeNNNG MCPE s BIT13 
002000 = BIT10 
001000 Al? = BITOS 
000400 Alb = BITOS 
000200 = BITO7 
000100 IE = BITO6 
;RMCS2 RH CONTROL STATUS REGISTER #2 
100000 DLT = BITLS ;DATA LATE-READ ONLY 7 
20808 = 4 -READ 
520000 Ope = artis iON 
010000 NED = BIT1e * NONEX $I DRIVE-READ ONLY 
[Peet Tt i | = e -READ 
302000 PGE = BIT19 Proce ONLY 
ppaace MOPE = BITOS B19 DAT PARITY 
. Pht an 
000200 OR = BITO7 : Y 
000100 IR = BITO& i “READ ONLY 
000040 CLR 2 BITOS : CLEAR 
000020 PAT s BITO4 * PARITY 
000010 BAI = BITO3 ;UNIBUS ADDRESS INCREMENT 
conn wes BITtE LORY sever 
BpOeET uO = Bt TbD * UNIT CT 
-UNIT SELECT MASK 
000007 UNTMSK = ? ;UNIT SELECT MASK 
. RH70 CON STATUS REGIS 
100000 Apeess 2 : Rots SbRESs PARITY ERROR 
040000 OPEHI = BITI4 ‘DATA PARITY ERROR HIGH WORD 
020000 DPELO = BIT13 DATA PARITY LOW WORD 
010000 WEHI = BIT12 * WRI CK HIGH WORD 
004000 WCELO = BITII “WRITE CHECK OW WORD 
cate = 5 Bttae 1 OOUELE Br NAL E 
000100 IE 2 BITOS tT 
000010 1BCK3 z B1T03 : INVERT PARITY CHECK 
n000K tpeKT BtTOT INVERT PARITY CHECK 
000001 IPCKO = BITOO “INVERT PARITY CHECK 
-SBTTL RH CONTROLLER REGISTER INDEX VALUES 
“i — SOO CHIN? RECISTER. 
oner = ° 
00000 RMBA = 04 : BUS a OG 
000010 RMCS2 = 10 ‘CONTROLLER STATUS REGISTER 


fururuororuroru ru 
ee ee ees 
1D CD NIGP UN -£ GIT 


BS 


BS 


ban fe f= bs Pe Pn Pe = Be he eB be oe he me 
cs 


SRSREARRS 


8 


PRAPRALARA NRTA YESSY PP Se PEST STS 


ee ee ae ee ee 


RMO3 FUNCTIONAL TEST, PART 3 MACY11 a 7:39 PAGE 30 0032 
4:18 sagen ali = a 





29-JUL-77 1 INDEX VALUES 
ooooz2 RMBs 
: fnees Be PEE ES TM 43 
120254 avecT = 12Bas4 ‘UNIBUS VECTOR ADDRESS AND PRIORITY 


-SBTTL TRAP CATCHER 


REET BAU ERE Yael RO eT 


j LOCATION 0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 


ee -WORD OQ ;; SOFTWARE DISPLAY REGISTER 


174 
-WORD 0 ;; SOFTWARE SWITCH REGISTER 


1 


BE 


o 





-SBTTL ACT11 HOOKS 
OHO 07 mnmnaeaaagemgemamastananairs es cmieenstesee ete: 


t ADOKS QUIRED BY ACTI 
iy ;SAVE PC 
;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“ORO 0 j52)SET Loc.S2 TO ZERO 
‘ =$SVPC RESTORE PC 





-SBTTL STARTING ADDRESS 
; THE PROGRAM STARTS AT LOCATION 200 


UE UU 


000137 005322 : IMP START ;JUMP TO START OF PROGRAM 


rence: EAtTD apt PARAMETER BLOCK 


s KHRERES a ee 


. REKKLEKERE SERGE E ERLE EEE 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR AP 
Fy SSSLRAHASESSRELRS ELLA RK ERE LH RKLELERAHRHEE  anucnnansensoueaunnns 


Bpooes aT er eGen cart To BS at TO START OF PROGRAM 


oO NT vt yi CT ADDRESS PNTR. 
oo0044 1109 SAPTHOR f aint 1 APT Pr INDIRECT 00 
0011 .=.$X + RESET LOCATION 

_cpreessiti eseaddTeee LOTION COUNTER RERERKAAERERRERAREREESE 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE 

901190 SAPTHD: 

1100 00000 SHIBTS: .WORD O ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001102 Oo leee SMBADR: :WORD S$MAIL ;;:ADDRESS OF APT MAILBOX (BITS 0-15) 
001104 I STSTM: .WORD 1 :RUN TIM OF LONGEST TEST 


FO3 


DOZRMEA - RMO3 FUNCT oe Lg PART 3 pach 30(1046) 29-JUL-77 17:39 PAGE 31 SEQ 0033 
OZRMEA.P11 29-JUL-77 14:18" T PARAMETER BLOCK 
1267 001106 000002 bn -WORD 2 IN SECS. OF 1ST PASS 4 1 UNIT (QUICK VERIFY 


ie BILD ae ie eee AN 


TAGADR 


GO3 
DZRMER — AMOS FUNCTIONAL TEST. PART 3 HAGA 3O(10N6) 29-JU-77 17:39 PAGE 32 SEQ 0034 


1271 -SBTTL COMMON TAGS 


a ; ppeeeeerengeconensesnnsnsonessscnsstersesss retort ons sennennee 
t ATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 








i 001114 . =TAGADR 
i 901114 SCNTAG: : ;;START OF COMMON TAGS 
i381 GULL? 000 Sears re 8 HCONTATNS ERROR FLAG. 
is Bis Ba ES Sora BEE ou meuoco8" 
iSee Botise oo : RO Suan fate Ge Wei es™ 
128% 001130 SITEMB: .BYTE 0 5 CONTRI 
186g 113 sermon: -BOe cotta ite Pe Ge Lear Ervon YRSTRUCTION 
1 1134 SGDADR: .WORD 0 CONTAINS ones oF 
1290 11% SBDADR: .WORD 0 i CONTAL DORE § OF Boor ote 
He ili SR iB crate “Be? ot" 
ee ,°9 
ie Bo1i4e 00008 Won as = 
1 001150 000 SAUTOB: :BYTE 0 ; s AUTOMATIC MODE INDICATOR 
1% 011 1 000 SINTAG: .BYTE c :: INTERRUPT MODE INDICATOR 
1698 Oot ies 177370 SUR: “ORD : DSWR i aDOrE OF SWITCH REGISTER 
1 DISPLAY: .WORD DDISP OF DISPLAY REGISTER 
1300 901169 177560 $TKS: 177560 TA 
1301 OOll62 1 STKB: 177562 iT 
bees BLIGE 7a Hire: ifrate ae Boe : 
130s ite ite. BYE 3 + ONTA a I TERE TERS REQUIRED 
ae ee an Tee raises 
G: . i} 
1308 oBLI78 000000 STMP1: {WORD O >: USER INED 
1310 001 000000 STMPe: .WORD O He I 
Hi Bis Bae Het oe Bepeat 
1313 001208 000000 sTines: 0 5 jMAX. NUMBER OF ITERATIONS 
iis SIE eae 000377 See CEO corz (207) «377 <377) ESCAPE ON. ERROR onsier 
131 121 077 SQUES: .ASCII /?/ * QUESTION MARK 
Hig SEIS cool er ie UB Ha: 
1 18 ; SO EHH EH HHS P eRe ee 
1320 ‘BTTL APT MAILBOX-ETABLE 
Lee | 5G ANNI ES 
Les ae 000000 Shalt: WORD  AMSGTY Se eSnGe TYPE CODE 
1326 001224 000000 SFATAL: .WORD AFATAL tT EATAL ERROR NUMBER 


SEQ 0035 


HO3 
Mal 29-JUL-77 17:39 PAGE 33 


-E 


MAILBOX 


¥11 30(1 


, PART 3 MAC 
APT 


DZRMEA - RMO3 FUNCTIONAL TEST 
29-JUL-77 14:18 


OZRMEA.P11 


, 41720=03, 11/40=04, 11/45=05 


Suh 
4 3 4, tie A BS vores 
Gs Uioebs pete ac at digg eceeseess 


=e =e oS Lad SaSEEEEEES 
ra booaoooa 
eee ar) 


sil 
’ 


TROWWENT TABLE 
oe 
ay 
: 
aan 
ae 


72 orTee: THIS WORD AND LOW OF “TYPE” ABOVE 





Bea eee : ree : 
bleseeteeelse - Go, SebeeceeteeeMasecemenen | * 
z -% 
creel eas «OES EERE Recsazgazgaees s 
eeeees . a Gbteesanersaeesesaaesss = 


2 
GETBUF : 


efesiitaiit.....f..../ Jeans 





Sg PETE ee ceeceeeeeees 


SESS ERAS Ri Me eRRSRSRSRRaR as 


| on ena bem bem ban am an am bam nam ham) 4 Sua eeesssssesesesassssss 


S8essssssese Ss 8B esesseses 
AB RRSRAAARIER Ee 2 a aA AARRSRERREREERA 


Ge a a a a dt tt ed tt Ht tt 





001326 
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OZRNEA - RMO3 
OZRMEA.P11 29-JUL-77 14 


z 
s- 
8 
e 
me 
is 
- 
Y 












133 “REGISTER INPUT BUFFER 

1385 001326 RMCS1I: . WORD ; CONTROL aL reg a 
se 3 

ie Soe ea: -e es 1 Ou 

me re Cok ae 

i 1 its WORD iE Ton REGISTER 

is ot al: “ho : cisteR 

1 : WORD he 

Be Bt ert ie ie any ree See 

1397 1 RMSNI: . WORD MreER Ree 

1 1 RMOFI: WORD : 

tiée Bolses RReET: “HORD Coreen Ev Ee R Recisreh 

1401 001 366 Reel: . WORD MA 

tc BB 1358 eect: “HORD Feriaitiatictons 

1404 001374 RMEC2T: . WORD 

10g ;THE REGISTER OUTPUT BUFFER IS — FOR 

1 407 ASSEMBLING DATA GOING TO REGISTER 

1403 001376 PUTBUF : 

Iie 376 frcsi0:\ MORO ection ; CONTROL STATUS REGISTER 

tata ioe RMBAO: “WORD SHOR, COUNT PaSTSIER 

141s RMDAO: |. WORD RonrROLLER SraTUS REGISTER 

tits at BESS. ORD. ‘DRI Pet tG NER 

1418 412 RMERIO: . WORD *ERROR REGISTER 

14 414 RMASO: .WORD : ATTENTION REGISTER 

Sb Bs. ee eee 

14 10: . REGISTER #1 

1423 RMDTO: .WORD TYPE GISTER 

14 RHSNO: “WORD ei, ae REGISTER 

14 RMOFO: : WORD 

= RMDCO: : WORD Pal ay REGISTER 

14 DOOOC $ 

4 1449 000000 RMERZO: “Hoe cisieh 

153 oD sie 000000 RMECIO: .WORD Sa: a 

i 1444 900000 RMEC2O: WORD sECE PA STER 

14 EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 

1434 : THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. A ZERO 

ise ‘WORD IS A BLANK AND REPRESENTS THE END OF THE QUE. 

1432 001446 000012 TSTQUE: .BLKW 10. TEST QUE 


DZRMEA - RMO3 FUNCTIONAL sarin’ 


OZRMEA. P11 


1439 
1440 


ae 


bas Dee en sg ee 


Satanic cues te F: 





001504 


001533 


29-JUL-77 


000027 


000027 


JO3 


PART 3. MACYIL1 te, petal 17:39 PAGE 35 
APT MAILBOX 


;MEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
FOR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
MEDENB: .WORD “MEDIA ENABLE 


;LOCATIONS “ASNOC” AND “ASNDC” cornln THE CYLINDER, TRACK AND SECTOR 
;ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 


ee Be TREES HU, 
caer: MS ACANG IEEE a 
DE ILM T SRT S "Th HL °c RT a 


SETINX: .BLKB 23. ;GET INDEX TABLE 


PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
Ms THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 


VE BYTE. 
PUTINX: .BLKB 23. ;PUT INDEX TABLE 
T 


SEQ 0037 


DZRMEA - RMO3 FUNCTIONAL Lago PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 36 SEQ 0038 
OZRMEA.P11 29-JUL-77 14:18" ERROR POINTER TABLE 


ies -SBTTL ERROR POINTER TABLE 

1464 “ S TABLE CONTAINS ha INFORMATION FOR EACH ERROR THA 

i ISSR SIGR AAE WURES SD BASEN eRe os weave 
ie MOTE: HEGHINOR Hh eM COEDS’ lbs Bote as row 
1470 ;# EM ;;POINTS TO THE ERROR MESSAGE 

1474 ;# DH +S POINTS TO DATA HEADER 

14 1 OT ‘POINTS TO THE DATA 

ian 3% DF ;;POINTS TO THE DATA FORMAT 

1475 

i 001562 SERRTB: 


3 | 


SBRIRRPRROS 


2 


Sachs 
<£=rT 


Qe TORS Se RRS 


PDOOG 
Lee 26 BE 
a Pas bt ee 


aoe 


MUU UT 
ee en et os 
0 OD NICU £ WIT 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


att tata ti tat 


TIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 37 SE@ 0039 
14:18 ERROR POINTER TABLE 


;ERROR 1 WRONG UNIT SELECTED 
070404 EMT1 
074476 EHT1 
a HH 
1 Tl 
;ERROR 2 DEVICE WENT UNAVAILABLE 
070410 EMTe 
76 EHT1 
EDT1 
71 EFT1 
;ERROR 3 DEVICE WENT NONEXISTENT 
16 EH 
HT1 
DT 
7le EFT 
;ERROR 4 CONTROLLER NOT READY 
070424 TY 
es if 
074712 EFT1 
4 ;ERROR 5 DRIVE NOT READY AND GO NOT RESET 
070432 TS 
EDT! 
074712 EFT1 
; ERROR -_ UNEXPECTED VALUE FOR “ATA” STATUS 
asl MH 
EDT! 
4712 EFT1 
;ERROR 7 BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
070446 EMT7 
000000 0 
000000 0 
000000 0 
;ERROR 10 DRIVE NOT READY BUT GO IS RESET 
0704S4 EMT10 
prs BH 
074712 EFT1 


OZRNER - RNO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046).27°"P9UL-77 17:39 PAGE 38 SEQ 0040 
OZRMEA.P11  29-JUL-77 14:18" ERROR POINTER Fi 


jERROR JI “DQwONOT RESET BUT DRIVE IS READY 


070460 ye 
001664 074476 eH11 “= 
tf 
Bese Gratis oe 
= 
sERROR 12 INCORRECT FUNCTION CODE 
001672 070464 ENT12 
mites Ere Bi 
581308 i eFTi 
SERROR 13 PARITY ERROR READING REMOTE REGISTERS 
001702 070472 ENTI3 
a Eott 
? Tl 


;ERROR 14 TRANSFER ERROR IS INCORRECT 


ore eee 


ERROR 15 INCORRECT WOXD COUNT 
001722 F biris 
Be a 
001 712 EFTI 
ERROR 16 INCORRECT BUS ADDRESS 
01 070520 EMT16 
we Pees EDTI 
te 
001740 O7471e EFTI 
sERROR 17 INCORRECT LBT STATUS 
1742 070530 EMT17 
i bree a 
€ 
i750 le EFT1 
ERROR 20 INCORRECT AOE 
001752 40 : EMT20 
" 178 EH 
$:8 DT 
DO1 1 FTl 


Pte RE REA PRRs Rea cea Lat ag Gare ee AT 


ee ee ae tae Be me he ee ee ee ee ee ee ee ee ee ee oe Be he ee 


DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 
OZRMEA.P11 29-JUL-77 14:18 


184 oo172 
1593 001764 074476 
15% 001766 
E 001770 O7u7ie 
: 070560 


i ee er er 
DHS BE UR RE 
tu 


COSCO a'o 


ba bh BB BB = Fs Bb = bP 





MACY11 30(1046) 


29-JUL-77 17:39 PAGE 39 


ERROR POINTER TABLE 


SERROR Ph oy 


; ERROR 


; ERROR 


;ERROR 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


_ INCORRECT WLE STATUS 


INCORRECT UPE STATUS 


INCORRECT WCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MOPE STATUS 


INCORRECT DCK STATUS 


SEQ 0041 


$e a 


mie 


as 


ERRREEReEaonnononSS 
8 


Re ORR OR 


i 


Fee 
N“ 


van 
tit 


ee 
bo 
Nr bs 
u 

Saen 


fos ee 
o 
a 

= - 


+ 
= 
+* 


BRR 


BREB Ia otal s 


Rens BR 
SRE 


Ba Bm Bas fee hes Dae be be hs ee ee 


BeBBBeRRE 
Rees Rene 
BEES 


SRRIRRLB 


as 


yom. Test. PART 3 YA! SOONG) re TL?” 17:39 PAGE '#0 SEQ 0042 


; ERROR gl INCORRECT ECH STATUS 


070650 ' 
Tl 
074712 EFT1 
;ERROR 32 DLT SHOULD NOT BE SET 
070660 ENT32 
76 EHT1 
ECT! 
074712 EFT1 
;ERROR 33 MXF SHOULD NOT BE SET 
O74 76 EMT] 
EDT1 
074712 EFT1 
;ERROR 34 DTE SHOUI.D NOT BE SET 
EMT34 
074476 EHT1 
EDT1 
1 EFT1 
;ERROR 35 - INCORRECT HCRC STATUS 
Brare EAT 
EDT1 
074712 EFT1 
;ERROR 36 INCORRECT HCE STATUS 
070720 EMT36 
074476 1 
0747 12 EFT1 
;ERROR 37 INCORRECT FER STATUS 
070730 EMT37 
074476 EHT1 
074622 
074712 EFT1 
; ERROR eoruo DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 
76 EHT1 
EDT 
074712 EFT1 


CO4 


SPST TE: PT RU IRB GER? ren re 


SEQ 0043 


RMO3 
1 


-_ 
‘a 


UNSAFE ERROR angus PACK ACKNOWLEDGE 
“OPI” ERROR DURING PACK ACKNOWLEDGE 
“RMR” ERROR DURING PACK ACKNOWLEDGE 
“ILR” ERROR DURING PACK ACKNOWLEDGE 
“ILF” ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 
PARITY ERROR WRITING REMOTE REGISTERS 


; ERROR 
ERROR 45 

; ERROR 
ERROR 47 


Be Ee HE 
oe oe i i i i i 


RRR RR RRS RR ERS RR RR Re ORR CR Re REE RER CREE ROR REE ERE 


DI a ah dd ad a dt hk a hd dt dt wd tt tt 


DOY 


SEQ 0044 





, ASSUME 


2 
: S 3 i y 
2 5 S " th 
g 5 Sm . : ~ 8 
2 B ate = 8 i i ; 
- % - rs B a . 8 
2 B r ne & : f z m7 
S tk wo & 2 te % tf 
ie. 2 2s us % r - 2 
S = zs Ci tt = 
# a Be 5 % | . ae 
bs i H = 2 2 
4 o > ES 2 w ns e- 
Bets Pole ea - 
oe & BE i & E z3 
© ESSE OBESE EGGG ESSE | wESGE fGoos tooo 8 Saat 


» PART 3 


29-JUL-77 14:18 
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GG ht a a dd Od a tt te 
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MACY11 30( 
ERROR POIN 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


qeea 


04 


10%) ore T= 7? 17:39 PAGE 43 SEQ OO4S 


ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


DRIVE DID NOT DETECT “IVC” ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMERI 


UNEXPECTED ERROR SET IN RMER2 


ERRONEOUS “IAE” ERROR DURING RECALIBRATE 


DZRNEA 
DZRMEA.P11 


es 
1874 


el el ed ee en od 





+4 
=f. 


Borba ietope ae tatetcies tab dninicsk RP aS parte st 
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ot ES Bi be 


2 


5 


5 
K 


MACY11 30( 1046) 
ERROR POINTER T 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


EPH 


FOY 


29-JUL-77 17:39 PAGE 44 
ABLE 


“ILF” ERROR DURING RECALIBRATE 


"OPI" ERROR DURING RECALIBRATE DUE TC “MOL” = 0 


“OPI” ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


"IVC" ERROR DURING RECALIBRATE - “VV" = 0 


ERRONEOUS “IVC™ ERROR DURING RECALIBRATE - “VV" = 1 


“SKI” ERROR DURING RECALIBRATE 


“DVC” OCCURRED DURING RECALIBRATE 


LOST “MOL” DURING RECALIBRATE - “OPI” = 0 


SEQ 0046 


JUL-77 17:39 PAGE 45 SEQ 0047 


6 
i 
fe 
M3 
£9 
I 
3 


° 
wv 
hae 


O46) 29- 
ER TABLE 
1 
1 
1 


LOST “VV" DURING RECALIBRATE - “IVC” = 0 


i 
mo 
3 
a5 902 5 


“ATA” DID NOT SET DURING RECALIBRATE 


i as 


: 
% 


N“N 
~_ 
rT 


; ERROR “OM” DID NOT RESET DURING RECALIBRATE 


es 
- 
= 
ES 


~S 

_ 

rT 
momen: 
aosa9 
be ph ee 


; ERROR “PIP” IS STIL SET AFTER RECALIBRATE 


; ERROR UNEXPECTED “ILR™ ERROR DURING RECALIBRATE 


;ERROR 106 UNEXPECTED “RMR” ERROR DURING RECALIBRATE 


;ERROR 107 “UNS” ERROR DURING RECALIBRATE - AC POWER IS LOW 





1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
H 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5 
331 
: 
e 
: 
: 
2 
: 
: 
: 


;ERROR 110 CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


AUP EGGA 1 
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SNEED 
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x 
7 
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~ RMO3 FUNCTIONAL TEST, PART 3 
Pll 29-JUL-77 14:18 





es 


074732 


MACY11 30( 1046) 


29-JUL-77 17:39 PAGE 46 


ERROR POINTER TABLE 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOQUT-NED STATUS FAILURE 


DEVICE NOT AN RMO3 


RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


SEQ 0048 


T04 


RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 47 SEQ 0049 
1 14:18 ERROR POINTER TABLE 


vi 
— 


; ERROR sage RMAS NOT INITIALIZED BY UNIBUS 


;ERROR lee RMMR1 NOT INITIALIZED BY UNIBUS 


menormeayae 13 
SS 


;ERROR le RMDS NOT INITIALIZED BY UNIBUS 





;ERROR 124 RMEC2 NOT INITIALIZED BY UNIBUS 


le 071746 EMT124 
14 074476 
16 074622 EDT 
074712 EFT1 
;ERROR 125 RMMR2 NOT INITIALIZED BY UNIBUS 
003022 071756 EMT12S 
003024 074476 
003026 074622 
003030 074712 EFT1 


;ERROR 126 RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


;ERROR 127 RMBA NOT CLEARED BY CONTROLLER CLEAR 


2 
: 
By 
BS 
ss 
ES 
3 
a 


2 072000 EMT 127 
- 074476 EHTI 6 eset 
003046 EDTI 
003050 074712 EFTI 
sERROR 130 RMCS2 NOT CLEARED BY CONTROLLER CLEAR 
003052 072012 : EMT130 


DZRMEA - RMO3 a Med Lag PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 48 SEQ 00S0 
DZRMEA.P11 29-JUL-77 14:18 ERROR POINTER TABLE 


ee ws i 
074712 EFT1 


eg | 
a 


OC ;ERROR 13 RMER1 NOT CLEARED BY CONTROLLER CLEAR 
10 00306 f 131 
: Be 003064 Or Ease HT1 
103 003066 074622 EDT1 
si 003070 074712 EFT1 
ie 
1 ;ERROR 132 RMAS NOT CLEARED BY CONTROLLER CLEAR 
1 ell 072036 EMT132 
1 074476 EHT1 
2110 003076 EDT1 
lig 003100 074712 EFT1 
1l 
114 ;ERROR 133 RMMR1 NOT CLEARED BY CONTROLLER CLEAR 
11$ 003102 EMT133 
118 ete 074476 EHT1 
st 0031 EDT1 
118 003110 074712 EFT1 
a 
1 7E bat RMDS NOT CLEARED BY CONTROLLER CLEAR 
1 003112 Or Enbe MT134 
1 003114 4 EHT1 
2le4 003116 074622 EDT! 
sige 003120 074712 EFT1 
i 
; ERROR RMEC2 NOT CLEARED BY CONTROLLER CLEAR 
3 003122 072074 ‘ 13 19s 
2130 003124 074476 EHT1 
2131 003126 074622 EDT1 
t 003130 074712 EFT1 
1 
1 ;ERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 
1 003132 072106 EMT136 
13a Bosse Gruece EDT 
i Sostae 074712 EFT1 
14 
14g ;ERROR 137 RMCS1 NOT CLEARED BY ERROR CLEAR 
143 003142 072120 EMT137 
is as Fes 4 
es po3ie8 7le2 EFT1 
ie 
rt ;ERROR 140 RMCS2 NOT CLEARED BY ERROR CLEAR 
150 003152 072130 EMT14O 


OZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 49 | SEQ 0051 
OZRMEA.P11 29-JUL-77 14:18 ERROR POINTER TABLE 


1 0031 1 
2 BE Be 
iz 00:31 07471 EFT1 
giz 
He 162 1 ; ERROR peti RMCS1 NOT CLEARED BY DRIVE CLEAR 
1 pelts EDT1 
E 003170 074712 EFTI1 
ir 
;ERROR 14 RMDS NOT CLEARED BY DRIVE CLEAR 
1B aie rep Bie 
2166 003176 EDT1 
: 003200 074712 EFT1 
1] 
;ERROR 14 RMERL NOT CLEARED BY DRIVE CLEAR 
i nase 50 bi? 43 
2173 003206 EDT! 
i” 003210 074712 EFT1 
1% 
1 ; ERROR RMAS NOT CLEARED BY DRIVE CLEAR 
17e ouseie g7eiz70 ent 144 
2180 003216 O74622 EDT1 
E 003220 074712 EFT1 
1 
» ERROR RMMRI1 NOT CLEARED BY DRIVE CLEAR 
t 072200 : Be 4S 
2 oe oe A 
i 003230 074712 EFT1 
072210 ; ERROR be 6 RMMR2 NOT CLEARED BY DRIVE CLEAR 
to 003234 074476 ent 
{ ;ERROR 147 RMER2 NOT CLEARED BY DRIVE CLEAR 


;ERROR 150 RMEC2 NOT CLEARED BY DRIVE CLEAR 


PASSnees 


‘ 





nN OSes ree 
NOW CUNO : 


eae 





ce Be Se 


a ee oe 
£7 


ticker 
+ + 
JU JIC 
tt 326 
nN3330 


b Bee 


TEST, PART 3 
14:18 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


LO4 


-JUL-77 17:39 PAGE SO 


MEDIUM NOT ON LINE 


DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 


SEQ 00S2 


DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE Sl SEQ 0053 
Pil 29-JUL-77 14:18 ERROR POINTER TABLE 


;ERROR 161 RMDA NOT RESET BY RIP COMMAND 





;ERROR 162 RMDC NOT RESET BY RIP COMMAND 


;ERROR 163 DATA WAS Bee CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUF 


me 


07427e E 
Pee EOTa3e 
003410 074746 EFT336 
; 4 OPI SHOULD NOT T 
003412 O7e422 sore EMTIG4 a es a 
DOMIe O7iece 
003420 074712 EFT1 
; VC SHOULD NOT BE SET 
003422 072430 — bnTies ap ames: - 
003424 074476 EHT1 
003426 074622 EDT! 
003430 074712 EFT1 
;ERROR 166 IAE SHOULD NOT BE SET 
ee 0724 EMT 166 
003436 brugee EDT 
003440 074712 EFT1 
;ERROR 167 NEM SHOULD NOT BE SET 
Oos442e 072444 EMT 167 
003446 Drdece EDT! 
003450 074712 EFT1 


SS a af 


;ERROR 170 UNUSED 





04 
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a 


; ERROR “ATA” NOT SET DURING RETURN:"TO CENTERLINE 


a am 


“N 
be 
tJ 
mmr 












;ERROR 172 “ATA” NOT SET BY OFFSET COMMAND 


5 







+ 


Baths bet tet bet be 
AlAtA AtA 


roe 


;ERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 


ooo 
a5 
eee 
“ 
WwW 





N“ 
a 
tw 
m 
vy 
4 
bh 


Beuun 
Sd 


; ERROR RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


3 
rune 
m 
To 
444 
—b 


; ERROR Me SELECTED DEVICE IS IN WRITE PROTECT 
175 


;ERROR 1 CANNOT SET DIAGNOSTIC MODE 


71 


J 
m 
vn 
~) 
he 


;ERROR 177 INCORRECT “MOL” STATUS DURING DIAGNOSTIC MODE 


5 


EE 88 Oe 8k 


24 
aos 


1 


DRE Ee rermmeneranernmaccceea ae 


;ERROR 200 INCORRECT “PIP” STATUS DURING DIAGNOSTIC MODE 


& 


< 7 a 


MACY11 30(1046) 29-JUL-77 17:39 PAGE S3 SEQ 00SS 








ERROR POINTER TABLE 
EmMT200 
EHT1 
EDT1 
EFTI 
201 INCORRECT “WRL” STATUS DURING DIAGNOSTIC MODE 
G fee A 
x: i 
2385 003570 074712 EFTI 
2388 ;ERROR 202 INCORRECT “SKI” STATUS DURING DIAGNOSTIC MODE 
2389 003572 072576 EMT202 
003574 074476 EHT1 
ier oriece EDT 
7le EFT1 
en ;ERROR 203 INCORRECT “DVC" STATUS DURING DIAGNOSTIC MODE 
23% 003602 072610 EMT203 
2397 003604 074476 EHT1 
2398 00366 074622 EDT 
2399 003610 074712 EFT1 
2400 
cies ;ERROR 204 "vv" WAS NOT RESET 8Y MAINTENANCE UNIT READY 
e403 O036ie2 072622 EMT204 
2404 003614 074476 EHT1 
els 074622 EDT1 
074712 EFT1 
2408 
2409 sERROR 205 SELECTED DEVICE HAS A PERSISTENT “SKI” ERROR 
2410 003622 EMTe20S 
ey i a 
t Tithe 
13 00: FTL 
e415 
2416 ;ERROR 206 “| BC” DID NOT SET DURING DIAGNOSTIC MODE 
pai? 26) MT206 
i 1 
40 074712 T 
e421 arte 
ois E UNEXPECTED LOSS OF “MOL” - MEDIUM IS OFF LINE 
SIN pone o7aeep HERRON Bien? 
76 EHT1 
e4e6 003646 074622 Tl 
e427 003650 074712 EFT1 
24e8 
e4e9 


2430 ;ERROR 210 UNEXPECTED LOSS OF VOLUME VALID - “VV" = 0 


PEE ET CELEELRELR CISC LCL LEE EE EEeS PEEP EE EEE 


oe Ge ie 


on 


So 


oa SS 


TIO 


of 


TEST, PART 3 
14:18" 


pocyat painter’? pun ihe PAGE S4 SEQ 0056 


;ERROR ele 


‘ERROR 213 


; ERROR 


;ERROR 216 


UNEXPECTED MECHANICAL MOTION - “PIP™ = 1 


UNEXPECTED DEVICE FAULT - “DVC” = 1 


UNEXPECTED SEEK INCOMPLETE ERROR - “SKI™ = 1 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


DRIVE DID NOT DETECT “IVC™ ERROR DURING RECALIBRATE 


INCORRECT “IVC” STATUS 


INCORRECT “IAE” STATUS 


INCORRECT “WLE” STATUS 


aopmmnooponnnagenanapoonnqooon nao ppnDDOD IDI IITy ii 
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; ERROR INCORRECT “OPI” STATUS 
Frtee 








Bosse ENT 
003766 EDTI 
003770 074712 EFTI 
ERROR 222 _ RMO3 DID NOT DETECT RMR ERROR 
003772 073032 EMT222 
074476 EMT 
904006 a $i EFT! 
sERROR 223  RMO3 DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 
oovoo2 073042 
OO4004 074534 3 
04008 O74646 EDT223 
10 074736 EFT223 
: ERROR UNUSED 
004012 - . 
004014 0 
eee : 
0 
sERROR 225 UNUSED 
oo4o22 0 
i et ie 8 
N40 30 0 
s ERROR 22 UNUSED 
Bae 0 
0 
0 
s ERROR 227 UNUSED 
Soups : 
Beans : 
0 
ERROR 230 UNUSED 


EOS 


SEQ 0058 
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SEQ 0059 
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ty Es. A par roe t Bee end Ea Py: 
= ener Ceseant: Rcmunit\) tenis Kucizen’| Games ask eet 
“ped Baad ced Fd fot Fad [og | 
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é Bs Seouy BLN 
oe ee eee 
ee a ee ee ee 


EE hudannecdedccnedecenaueumtemunceummnneeconennonentnnees 


L 
3 
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STs CT SERS ee Ted eee 
ee oe me Ge Be 


8 
o 


s ge 


3 
RRS 


3 
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Z 


- 
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fe 


N 
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a3 


te 


074622 
074712 


MACY11 30( 1046) 
ERROR POINTER T 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


GOS 


29-JUL-77 17:39 PAGE S8 SEQ 0060 
ABLE 


PROGRAM INTERRUPT WAS NOT GENERATED 


PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


OFFSET MODE WAS NOT RESET BY WRITING RMODC 


INCORRECT “ILF” STATUS 


INCORRECT “ATA” STATUS 


INCORRECT “ILR” STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


“IVC” WAS NOT DETECTED DURING SEARCH COMMAND 


DZRMEA - RMO3 ag pe hag PART 3. MACY11 30(1046) 29-JUL-77 17:39 PAGE S9 SEQ 0061 
DZRMEA.P11 29-JUL-77 14:18" ERROR POINTER TABLE 


oh aR pe ie 
356 074622 EDT1 


; ERROR get DRIVE EXECUTED SEARCH WITH ERROR SET 
261 


SRASAEE 
DWONOUIL 
S 98 
ef 
i 
Cy) 


;ERROR 262 “LBC” ERROR NOT SET DURING DIAGNOSTIC MODE 


;ERROR 263 “SKI” ERROR DURING SEARCH COMMAND 


;ERROR 26 “IVC™ ERROR DURING SEARCH - LOST VOLUME VALID 


;ERROR 265 ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 


;ERROR 266 DEVICE FAULT (DVC) DURING SEARCH 


;ERROR 267 SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
; ADDRESS IS TOO LARGE 


Sat ono Sue UNUM SS SAR TORE SOS SNASURSE ONO IONND 
Z 
| 


DZRNEA 


DZRMEA.P11 


PCELLLLEPRRRtRPht rari cl coe RSS ERNST CoE 


Bene 


b= bo = aR 


Reisosracon 


- RMO3 ee. Mao PART 3 
29-JUL-77 1 


073412 


MACY11 30(1046) 
ERROR POINTER T 


; ERROR 


; ERROR 


274 


29-JUL-77 17:39 PAGE 60 
ABLE 


OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN’T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 
PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


ad ERROR DURING DATA TRANSFER BECAUSE “MOL” WAS 


I" NG DATA TRANSFER BECAUSE 1) ON 
YLINOER BION DROP OR 2) SEARCH TIMED OUT OR 
y RUN T 


SEQ 0062 


_ Ae Mie hag #4 PART 3. MACY11 30(1046) 29-JUL-77 17:39 PAGE 61 SEQ 0063 





;ERROR 305 INCORRECT “IAE” STATUS DURING DATA TRANSFER 


;ERROR 306 “SKI” ERROR DURING DATA TRANSFER 


DZRMEA - 
DZRMEA.P1 29-JUL-77 14:18 ERROR POINTER TABLE 
ES Bh 
EDT 
gBeb 004550 EFTI 
BOS sERROR 300 "IVC" ERROR DURING DATA TRANSFER BECAUSE VOLUME . 
: : WAS NOT VALID 
o04sS2 073562 ENT 300 
Souza Br 
004560 074712 
2836 
28 ;ERROR 301 ERRONEOUS "IVC" ERROR DURING DATA TRANSFER - VOLUME 
004S62 073602 : EMT301 
2840 OO4SE4 074476 EHT1 
004566 EDTI 
004570 07471 EFTI 
ERROR 302 “ILR” ERROR DURING DATA TRANSFER 
2846 004572 073624 EMT302 
2847 004574 o7HZe EMT! 
2 BoNeOe OPH PT 
ERROR 303 “ILF” ERROR DURING DATA TRANSFER 
2853 OO4602 073636 EMT303 
iS i 
i 12 EFTI 
2858 
2859 ;ERROR 304 “RMR” ERROR DURING DATA TRANSFER 
12 50 EMT304 
14 EHT1 
16 EDTI 
0747 le EFTI 
2877 


ee ee 
5 
a3 
ta 


® 
@ 
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; ERROR pO 07 DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 





;ERROR 310 DEVICE FAULT DURING DATA TRANSFER 


;ERROR 311 _ LOSS OF BIT CLOCK DURING DATA TRANSFER 


;ERROR 312 LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


004672 073750 EMT312 
a at 
700 074712 EFT 


2 
Be 
: 
: 


;ERROR 313 UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 


BEze 


Bi 
2914 
1 ;ERROR 314 DRIVE TIMING ERROR DURING DATA TRANSFER 
ie 712 Gane EMT314 
1 714 76 EHT1 
1 716 e EDT! 
1 720 O07471le EFT1 


os 


;ERROR 31 WRITE LOCK ERROR 


8883 
Seay 
3 

7 
Ages 


; ERROR ERRONEOUS WRITE LOCK ERROR 


7 


238 


B 
z 


eae 
gs 
Gs 


RNO3 
1 


wi 
— 


Re ae 
8 
g 





FUNCTIONAL 


29-JUL-77 14:1 


Laie PART 3 


MACY11 30( 1046) 


29-JUL-77 17:39 PAGE 63 


ERROR POINTER TABLE 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


;ERROR 


; ERROR 


; ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HERDER ERRORS SHOULD NOT BE SET 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 
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;ERROR 327 OFFSET MODE NOT RESET BY WRITE COMMAND 
ooso4e al EMT327 


00SO44 0744 EHT1 
poate Biers PTH 
;ERROR 330 DATA PARITY ERROR DURING WRITE COMMAND 
074162 EMT330 


;ERROR 331 WRITE CLOCK FALURE DURING WRITE COMMAND 


1 MT331 
HT1 
Tl 
074712 EFT 
: ERROR DATA LATE ERROR DURING DATA TRANSFER 
204 : 2iF 332 
76 EHT! 
EDT1 
074712 EFT1 


;ERROR 333 PIP STIL SET AFTER DATA TRANSFER - SKI = 0 


;ERROR 334 LOST MOL DURING DATA TRANSFER - OPI = 0 


BP WUNMESR Sse encore Soe RE OREE aS a 


074234 EMT334 
074476 EHT1 
e EDT! 
7le EFT1 


;ERROR 335 LOST VOLUME VALID DURING DATA TRANSFER - IVC = 0 


; ERROR 338 DATA READ DOES NOT COMPARE WITH DATA WRITTEN 
EMT336 
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; ERROR 3? 97 WRITE CHECK ERROR NOT DETECTED 
Orsre EHTS? 


074756 EFT337 


Rb 
BEES 

= 

3 

N 


Por Oo he 


;ERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 
074312 EMT34O . 


; ERROR 1 INCORRECT DATA DURING WRITE CHECK ERROR 


SF2R SeLH 


eae Bote 


; ERROR 26 “IVC” ERROR NOT DETECTED DURING DATA TRANSFER 
342 


Beg 8 
rs} 
o 
= 
e 


;ERROR 343 “FER” NOT DETECTED DURING DATA TRANSFER 


;ERROR 344 “HCE” NOT DETECTED DURING DATA TRANSFER 


Prarie 
ee 
ocr 
mre 
ox 
=4 


;ERROR 345 “BSE” NOT DETECTED DURING DATA TRANSFER es 


cn 
6 
323 
ae 


;ERROR 346 HEADER ERROR WAS DETECTED W/ HCI SET 





a 
ae ae ce © 

3 

£ 

2 

& 


a 


ro 
£ 


“8 Go fa 7 


i Hel 3H 


3333 


— 
jw 


WWWWWWWWWWW) 


Gi 


: 


WWWIWIWIW) GI WWW IW) 


i b= bh b= 0 DP br bP bb rr ee he 


33 
—— 
oo 


33 


3 


a3 


So=SLBLKRABRBBBVRRVGN Boers Hs ow -SSSVERES 


ee ee 


WI) GI GIGI) CG) GI GIG) GI WI GIG) GIGI GIG) CI) GIGI GI WI GI GI GI GI I GI GI GG) 
rw 


0 0 Ob Ob bb 0 0 0 = 0 bb 


Re ribald ta ot eet tae 4 


pad pigs) ep ue-7F ns PAGE 66 SEQ 0068 


; ERROR 


abatal 


weaase | sass 


——— 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - “IVC” = 9 


“ATA” DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


TABLE HERE 


;PUT_ERROR 
"SBTTL ERROR TABLE USAGE 


THE en 


TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 


EMT - ERROR te ADDRESS 


= ERROR DATA TAs ™ 


T TABLE ADDRESS 


TRY IS ap OF ERROR MESSAGE STRINGS 
TICULAR , Bact E SSAGE TABLE LISTS THE ADDRESS 





vl 


VetAZIN-SSELERIGRESS 


DB be Be a Be bh pe bs ee pe he he 


WW WWI WWW WWW WW) WWWWWWW) 


peeyal pyr) eer 0b. PAGE 67 


STL NODE hoes OS Bn, eo Ely BP, He 
REL Dy Ria AR RIES SUORLE "ES 


:DATA ane LINE Rs Ese pssoclaven LINE OF ™ 
jet Te Le BRINTER GT TOUT AR CATA 
jBUT_A Dar DaTA LINE 15 Not NOT “PRINTED WITHOUT A HEADER, AND EACH DATA’ LINE 
IN SUMMARY, 


EACH NONZERO ENTRY IS THE ADORESS OF A TABLE 
EACH TABLE IS A LIST ADRESSES ES WHICH BEF INES THE LOCATIONS 


OF 
‘OF MESSAGE STRINGS, HEADERS, DATA OR F 


DO6 
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SEQ 0070 


START OF PROGRAM 
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DZRMEA - RMOS FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 69 SEQ 0071 
DZRMEA.P11 29-JUL-77 14:18 TYPE PROGRAM NAME | 
ez HYPE THEN THE NAME OF SEO AT AS PROGRAM IF FIRST 
re stir “ae 
ine 
#SENDAD, 842 fe i? 
oFs 2 StR 
1 .SBTTL GET VALUE FOR SOFTWARE site Recls 
sie 00s TST 842 ris» UNDER XXDP/ACT? 
005 BNE 1$ 
CMPB SENV, #1 RUNNING UNDER APT? 
005 BEQ i$ 
00565 CMP SHR, #SHREG ae CH REG SELECTED? 
| Lt 
es te i japances 
ea mete 71s: MOVB 81, SAUTOB _— AUTO-MODE INDICATOR 
um Rocrz OeS > aRNOS eunctiones VEGr Bat Sa<CRLF> 
aa 005734 64s: 
FIND OUT IF PROGRAM IS RUNNING IN STANDALONE MODE 
see 005734 005737 oo0042 TST 42 31S LOC 42 ZERO ?? 
3259 005740 001003 _ BNE’ 108 NO - NOT IN STANDALONE 
3260 005742 105737 ool1242 >’ TSTB  SENV 1S APT ENVIRONMENT ZERO ?? 
ee bo 76 001411 ane BEQ STANDALONE :YES - PROGRAM IN STANDALONE 
3264 PROGRAM NOT RUNNING IN STANDALONE - SEE IF SIZING IS ALLOWED 
pe 905750 1 e737 000200 001243 BITB aBIT7, , SENVM sSIZING ALLOWED ? 
3267 005760 012737 000377 001300 MOV 8377 , SDEVM YES - SET DEVICE MAP FOR ALL DEVICES 
3268 005766 20S: 
3270 GO TO COMMON START CODE 
3271 005766 000137 006610 IMP CMNSTAR 


FO6 





ZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 70 SEQ 0072 
-Pll  29-JUL-77 14:18 GET VALUE FOR SOFTWARE SWITCH REGISTER 
STANDALONE : 
004737 064622 ISR PC, STKINT ; INITIALIZE CONSOLE 
-SEE IF THIS IS THE FIRST START WAS LOADED 
005327 000001 : Bee #1 Pe TRSr 27 
100024 BPL 10S ses 2 
-SEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 
1O¥NOL 067154 és: TYPE —_, CNSL j MAINTAIN IOUS PARAMETERS?? 
bi Bea) 001176 apy (SP)+, STMP1 * ECHO RESPONSE a” 
10440! 001176 TYPE STMP 
; 001176 000131 cree STP, e"y ; YES RESPONSE? ? 
i 742 JMP READY KEEP PREVIOUS PARAMETERS 
e372? 001176 OO0116 6S: CHPB STMP1,#’N “NO RESPONSE ?? 
1 067023 AOE spe i RBT "Ee OR fy NO : a a 
108 BR ;RETRY 
;SEE IF OPERATOR WANTS HELP FILE 
104401 067025 TYPE  ,HELPQST sHONT HELP 7? 
brea? 0011 MOV (SP)+, STMP1 Sve RD Reto RESPONSE 
104401 001176 TYPE STMP 
im he ae ore STP, 8° Neo TAT PEELE 
192 104401 106520 ae T , HELP *YES - TYPE HELP TEXT 
SEE IF USER WANTS TO CHANGE RMO3 UNIBUS ADDRESS 
006105 : 24 067061 TYPE ,UBUSQST 5 WANT TO CHANGE ADDRESS ?? 
114 0 001176 MOV (SP) STMP1 “SAVE AND ECHO RESPONSE 
120 1 001176 TYPE TMP] 
14 1 001176 000131 CMPS 40s STMP1, #’Y ;WAS IT A YES RESPONSE ?? 
10 006132 001137 BNE 90S NO #! 
i 006134 30S: 
1 DIALOGUE TO CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR 
14 006134 104401 067213 TYPE CNSLOI TYPE CURRENT ADDRESS 
1S 140 013746 001276 MOV $BASE, -(SP) : SAVE SBASE FOR TYPEOUT 
} 144 1oWNde add Typoc pitene ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
18 ies 10441 RoOCT ” ;GET NEW BUS ADDRESS 
es 15H 01 6 001176 HOV (SP)+, STMPL i CORR TAGE RETURN?” Ry 
1 i Gee7a? 160000 001176 CH #160000, STHPI i BASE ADDRESS IN 1/0 PAGE?? 
ae ool 067240 TYPE CNSLO2 ‘TYPE WARNING MESSAGE 
013737 001176 001276 40S MOV STHPL SBASE ‘STORE NEW BUS ADDRESS 
il 1272 001176 SOS: MOVB S$VECTI.STMP1 § :TYPE CURRENT VECTOR ADDRESS 
006214 105037 001177 CLRB ss STMP i+] 





GO6 






FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 71 SE@ 0073 
29-JUL-77 14:18 GET VALUE FOR SOFTWARE SWITCH REGISTER 
o440 1 CNSLO3 ; 
ra7% ithe STMPI,-(SP) ;;SAVE STMP1 FOR TYPEOUT 
1 3590 TYPE : Tie fort 
3 + SUPPRESS NG ZEROS 






067014 , CLSPRN 
ee ; ;GET NEW VECTOR ADDRESS 

ait te aIP TO NEXT ENTRY 
#1000, STP {VECTOR ADORESS < 1000? 









2 GAMERS ® 72 WSF 0038 


1335 CNSLOY : WARNING MESSAGE 
: 20s 1 {eTORE CT Ss 
svect 91, $171 i PPE CURRENT Peron 
it: Lf et 
Wie ++ set 
STP i+ 
bt STRP I= (SP) ;;SAVE STMP1 FOR TYPEOUT 
1 TYPOS 260 TyPe—OCTAL ASCII 
» 1 ;;1YPE_1 DIGIT(S) 
"BYTE OO ?:SUPPRESS LEADING ZEROS 
, CLSPRN 


: 
r 
3 
283 


;GET 
(SP)+, STMP1 ; CARRI RETURN? ? 


we Se 
mM 006302 
A * 
106.35 2637 
x itis BEQ 90$ > YES-SKIP TO NEXT ENTRY 
001176 000007 CMP STMP1, 87 *LEGAL PRIORITY?? 
ee BLT 80S sYES!! 
360 1GH40} 067461 TYPE CNSLO6 ‘TYPE WARNING MESSAGE 
Ot BR 0s 5 RETRY 
: 80S: ‘STORE NEW PRIORITY 
x 001176 ASL STMP1 
001176 ASL STMPI 
001176 ASL STMP1 
4 001176 ASL TMP 
001176 ASL TMP 
5 113737 001176 001273 “a MOVB  $TMP1,SVECT1+1 
;DIALOGUE TO INPUT DEVICE NUMBERS 
006432 005037 001300 CLR SDEVM >CLEAR DEVICE MAP 
3373 OO6436 104401 067506 TYPE _, CNSLO7 - TYPE INPUT INSTRUCTIONS 
pull 067017 TYPE  |PROMPT -TYPE PROMPTING CHARACTER 
RDCHR GET RE 
ek 001176 HOV (SP)+. STMP1 “ECHO RESPONSE 
q rape 000101 cw $TMP1,#°A ; TEST ALL DRIVES?? 
eae 000377 001300 MOV #377 , SDEVM *TEST ALL DEVICES 
3381 O064 44 140$ ;SKIP TO NEXT ENTRY 
3386 104401 067017 , PROMPT : TYPE PROMPTING CHARACTER 
104411 “GET RESPONSE 


HO6 





_ 
8 


;NO 
006610 140$: 


DZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 72 SEQ 0074 
DZRMEA.P11  29-JUL-77 14:18 GET VALUE FOR SOFTWARE SuITCH REGISTER 
0 1176 MOV (SP)+, STMP1 -ECHO RESPONSE 
ee ppeens fer 1176 TYPE STP ; 
Ey reels ate 001176 oo00i1s cH STHP1, CR CARRIAGE RETURN?? 
001176 000060 110S: CH STMP1,#’0 ; NUMBER « 07? 
* 
oe teen © Ge finger? iNRGER > 722 
Sue : TYPE TMRK : og 
BR 188s 
MOV STMP1,R1 :RI=DRIVE NUMBER 
BIC #4C7,Ri 
333 MOVB TNTBL (RL) ,Re sDECODE DEVICE NUMBER 
BIC #+C377, Re ‘CLEAR UNUSED BITS 
BIS R2, SDEVM ist DEVICE # IN MAP 
CMPB s- 8377, SDEVM DONE ? 
3401 
3402 


renee | 


Pre hp peppy ppp: 
R-Bsa Ven sow 


ois hia SawURRG OR OR ERIN 


I06 


wi 





RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 73 SEQ 0075 
11 29-JUL-77 14:18" GET VALUE FOR SOFTWARE SHITCH REGISTER 
006610 CMNSTART: 
- ; ;ASSEMBLE TEST QUE FROM DEVICE MAP et 
4 = 
este O1F70h ob nov se your te, Ri if = SFOAE Es OF FIRST ENTRY IN QUE 
10137 00144 MOV Ri, TSTQUE INITIALIZE ENTRY POINTER 
Bees posoos CO fr om RS = BEVICE NUMBER 
006632 Garaoe 10S: BIT Re, RO iS THIS DEVICE IN MAP 7? 
10311 MOV (RI ‘YES = I R_IN QUE 
16361 067746 000001 MOVE Aa atBee R3), 1(R1) ENTER Vee 1 BLE 
1 000002 ADD #2,R1 “ADVANCE ENTRY POINTER 
006302 20$: ASL Re ‘ADVANCE DEVICE POINTER 
10570 TSTB sR “DONE ALL DEVICES ?? 
1 BEQ 255 : YES 
ll 25$: CLR (RI) ‘TERMINATE TEST QUE 
043464 a PC, SIZCLK IF CLOCK PRESENT 
Bpa4e ane 40$ i SEE = CLOCK IS PRESENT 
006674 104000 30S: ERROR "NO CLOCK 
00778 ir (30s 
SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
905737 ooo0042 atte ARE WE RUNNING UNDER XXDP/ACT? 
710 123727 001242 o00001 CHP SENV, #1 *: ARE WE RUNNING UNDER APT? 
707 001154 000176 CMP SUR, #SHREG + OO TARE RE SUITCH REG SELECTED? 
Ober 104407 GTSHR mite ie T SOFT SHR SETTINGS 
er t re 3 000001 001150 bus: MOVB «#1, SAUTOB ;;SET AUTO-MODE INDICATOR 
Dob? 00240 READY: NOP ;READY TO START TEST 
reo O1a7% 000800 MOY PRO CaP) Tee eras 
754 O1rae 006762 MOV #64$, -(SP) PUT NEW PC ON STACK 
ree Se RTI ::POP NEW PC AND PS 
117737 172460 001234 "  MOVB = @TSTQUE,SUNIT ;LOAD UNIT NUMBER 
006770 005037 001472 CLR MEDENB ‘CLEAR MEDIA ENABLE 
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001226 


MACY11 30( 1046) 
Tl CONTROLLER ACCESS TEST 


29-JUL-77__17:39 PAGE 74 


ss SEEEEELEE EERE EEE EELS RERAE REALE ELLE EERE RELL RELL SEERA LLRRAEE ES 
ss FEEEEEEEE EERE ELLE E LESSER RLRLL LEE LE LER RRLA ALLER LEE ELERE LEE 


TEST 1 

téT1: nat 
MOV #1 

- MOV tig’ Steere 
MOV SSTACK, SP 
MOV SBASE RQ 
MOV TSTQUE RI 
MOV #1, STESTN 
CLR 1 
MOV ERRVEC, -(SP) 
MOV ERRVEC+2. -(SP) 
MOV #3, ERRVEC 
MOV PRO, ERRVEC+2 
MOVB Ri, RNCS1#1 (RO) 
MOV R1; RMWC (RO) 
MOV RMNC (RO) Re 
MOV R1, RMBA(RO) 
MOV RMBA (RO), R2 
MOV R1, RMCS2tRO) 
MOV RMCS2(RO) . Re 
MOV R1, RMDB(RO) 
MOV RMOB (RO). Re 
MOV (SP)+, ERRVEC+2 
MOV (SP)+; ERRVEC 
BR 7§ 

3S: CMP (SP)+, (SP 
MOV (SP)+’ ERRVEC+2 
MOV (SP)+;E! 
ERROR 110 
TST ya 
BNE cs 
IMP START 

s8: IMP oP 


;START OF TEST 


ICE BEING TESTED 


;;PUSH ERRVEC ON STACK 
;;PUSH ERRVEC+2 ON STACK 


WORD COUNT REGISTER 
;MOVE BUS ADDRESS REGISTER 
;MOVE CONTROL STATUS REGISTER 
;MOVE DATA BUFFER 


-:POP STACK INTO ERRVEC+2 
;:POP STACK INTO ERRVEC 
"MO BUS TIMEOUT OCCURRED 


ADJUST STACK 
>:POP STACK INTO ERRVEC+2 

;:POP STACK INTO ERRVEC 

:CANNOT ACCESS MASSBUS CONTROLLER 

;STAND ALONE MODE?? 


'YES-GO GET SBASE 
'G0 TO END OF PASS HANDLER 


;MOVE HI BYTE TO RMCS 
; MOVE 


+ RRMA EGE GEE ERE A RRR EEE EEA RRRE REESE ERE EEE EELS 


tkTEST 2 DEVICE AVAILABLE TEST 
> ga gamnesee eign ay enepes gait aaa Bae oRNr CES pC RSCO RES 
"SCOPE ; 
NOP ‘START OF TEST 
MOV STACK, SP ‘INITIALIZE STACK POINTER 
MOV S$BASE * RO=UNIBUS 
MOV TSTQUE.R1 *(R1) = DEVICE BEING TESTED 
MOV #2, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR 
BR 2§ :GO TO 2% IF NO ERROR 
NOP “RETURN HERE IF ERROR 


SEQ 0076 





be 


RRR RRR RRR 
Qh hs pe be bee Pe pee 
WON DUIS Wi-O 


ae 


aan a ao ee Ae AL GS 


- RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 75 SEQ 0077 
Pil 29-JUL-77 14:18 Te DEVICE AVAILABLE TEST 





ERROR -ERROR NUMBER DEFINED BY SUB 
“ IMP 7$ ;G0 TO 7$ IF ERROR WAS FOUND 
: ov ERRVEC -(SP) ;;PUSH ERRVEC ON STACK 
ov $2, -(SP) ;;PUSH ERRVEC+2 ON STACK 
MOV S55. FRRVE: 
MOV RMCS1(RO),STMP1 ;GET DVA STATUS 
HOV (RO) GET NED STATUS 
Ropys. C+2 -;POP STACK INTO ERRVEC+2 
MOV (SP)+ C€ ;;POP STACK INTO ERRVEC 
BIT , STMPO ;NONEXISTENT DEVICE?? 
ERROR iit *NONEXISTENT DEVICE 
3$ IT sOvA, STHPL s DEVICE AVAILABLE?? 
ERROR ile ‘DEVICE NOT AVAILABLE 
BR 7§ 
SS: CMP (SP)+, (SP)+ ;ADJUST STACK 
MOV (SP)+) ERRVEC+2 >-POP STACK INTO ERRVEC+2 
MOV (SP)+/ERRVEC  ;:POP_STACK INTO ERRVEC 
ERROR 113 BUS TIMEOUT (04 TRAP) 
7S: IMP SEOSP 
9S: 
53 KKK KE LAA RAA KAKA AREA RARE S AERA RRR E RRR ERAS REE REE EERE REEL RRR REESE 
TEST 3 DRIVE TYPE TEST 
© RRS ERERE REAR AERA AAR A REAR RRR R RESALE RR REEL REE REESE 
007356 t$13: 
000004 ;SCOPE CALL 
1 001100 NOV SSTACK, SP tONTTIACTZE STACK POINTER 
007366 013700 001276 MOV *ROSUNIBUS ADDRESS 
bo737e 13701 001446 MOV TSTQUE RI *(R1) = DEVICE BEING TESTED 
12737 000003 001226 MOV #3, STESTN :-SET TEST NUMBER IN APT MAIL BOX 
737 052140 JSR PC, CNTCLR 
19 BR 2s GO TO 2S IF NO ERROR 
1 RETURN HERE IF ERROR 
14 44000 ERROR “ERROR NUMBER DEFINED BY SUB 
137 007514 a JMP 4§ ;G0 TO 4$ IF ERROR WAS FOUND 
il p00026 001504 ~~ MOVB §SRMDT,GETINX ;SETUP GET INDEX TABLE 
ii 900200 901505 MOVE 8200, GETINX+1 
1 1354 MOV 85S. RMDTI ;RMDT INPUT BUFFER = SS 
004737 042776 JSR pC, GET °GO GET DRIVE TYPE 
BR 3$ GO TO 3$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
104000 ERROR ERROR NUMBER SPECIFIED BY GET 
007456 022737 O20024 001354 3S: CMP SSNGPRT,RMDTI  ;SINGLE PORT RMO3?? 
007464 001415 BEQ cs * YES! 8 





: 


? 
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RREKKK 


29-JUL-77 17:39 PAGE 76 
vee Teet SEQ 0078 


001354 cre SOULPRT , RMOTI ho ibaa RMO3?? 
0011 MOV #SNGPRT.$STMP1 ° 
nae MOV SOUCPRT  STPPS 
114 ;NOT AN RMO3 
4g: JMP SEOSP GO TO SUBPASS HANDLER. 
Ss: 
‘itrcr 4 RIT oe ae Ge ee 
i jfesendeeuennsensdasbessesessssdecnsseesanensenenoesoesssnenenes 
"SCOPE : 
NOP :START OF TEST 
MOV SBASECRO™ PO UNIBUS ADDRESS 
MOV TSTQUE, RI *(R1) = DEVICE BEING TESTED 
001226 MOV #4, STESTN SET TEST NUMBER IN APT MAIL BOX 
$8 SRHEGKESKGE GEEK SESE A RR EAA AA AAAS AAA RARER ERA RRRE REESE 
“LOOP #1 FORMAT, WRITE, READ 
10$: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
JSR TSTPRP -PREPARE DEVICE FOR TEST 
054130 ;TASK DESCRIPTOR 
20$ -GO TO 20$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
‘aa IMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
-LOAD PARAMETERS NERATE DATA BUFFER 
001432 ° MOV a RHDEO ;CYLINDER = 0 
001404 HOY #0 RHOAO j TRACK = 0, SECTOR = 
60100 HOV actetesese. +1), ' im nia oOo 
001376 MOV #WwH! GO, RMCS10 *WRITE HEADER AND DATA COMMAND 
;VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
JSR PC, BADSCT ;CALL BAD SECTOR MODULE 
BR 2s$ -GO TO 2S$ IF NO ERROR 
TYPE  ,SCTMSG ; TYPE BAD SECTOR ME 
ERROR ‘ERROR # DEFINED BY BADSCT SUBROUTINE 
fh IMP 350$ :GO TO 350$ IF ERROR WAS F 
001174 “MoV #ZEROS, STMPO ;STARTING ADDRESS OF PATTERN 
001176 MOV #1, STMP1 *RANGE OF PATTERN 
JSR PC? GENBUF GO GENERATE BUFFER FOR FORMAT 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV #PUTINX, Re | ;R2 = BYTE ENTRY POSITION 
MOVB @RMDC, (R2)+ 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 77 SEQ 0079 
TY WRITE, ZEROS 


SRMBA; (Ro) + 
a ai 
Bie 
a , (Re) s TERMINATE TABLE 
; FORMAT THE HE DRIVE 
PUT ;GO WRITE REGISTERS WiTH PUT SUBROUTINE 
aR 40s T IF NO ERROR 
NOP ; RETURN F 
ERROR “ERROR # DEFINED BY PUT SUBROUTINE 
ety IMP 350$ :GO TO 3S0$ IF ERROR WAS FOUND 
;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
JSR PC, GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO TE 
ISR PC, TI G0 TO TIMOUT SUBROUTINE 
GO READ STATUS FOR FORMAT OPERATION 
JSR PC.GET ;GO READ REGISTERS WITH GET SUBROUTINE 
BR so$ 0 SOS IF NO ERROR 
ERROR ERROR (FEES HE ERROR, T SUBROUTINE 
IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
;VERIFY NO ERRORS DURING FORMAT 
ISR Pc DTASTS ;G0 VERIFY ha: SULT OF DATA TRA TRANSFER 
RETURN eRe 
ERROR ERROR & DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECK 
IMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 


;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70$ , SLPADR 
MOV #70$, SLPERR 
BR 80$ ;SKIP TO WRITE OPERATION 
1°73 remenay7 0-7 eennensecieearcscee tp oncnaneouaees tn 


:/ 00P WRITE, READ 
70S: 
PREPARE DEVICE FOR WRITE OPERATION 
ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
.WORD 054130 ;TASK DESCRIPTOR 
80S TO. 80 IF NO ERROR 
NOP ; RETURN HERE 
ERROR ERROR # BEEINED” BY TSTPRP SUBROUTINE 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 78 
TY WRITE, READ ZEROS 


-~ 
a JMP 350$ GO TO 350S IF ERROR WAS FOUND 
1205S: 
;WRITE DATA TO IVE 
MOV rE one +4 RHBAQ . on MEMORY ADDRESS 
Hoy ac sene 01218 y arte one COMMAND 
nae 8PUT Ni Re + ORD PUT REGISTER INDEX TABLE 
*(RO)+ 
MOVB SRMOF, (Ro) + 
MOVE SRMBA, (RO)+ 
me tari Te 
MO sod (Re) ; TERMINATE TABLE: 


RETURN HERE IF ERROR 


a So BEE, fF CREE Fao 


;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 


;WAIT FOR WRITE COMMAND TO COMPLETE 
JSR PC, TIMOUT ;G0 TO TIMOUT SUBROUTINE 


GO READ STATUS FOR WRITE COMMAND 

JSR PC,GET ;GO READ REGISTERS WITH | GET SUBROUTINE 

140 4O0$ IF NO ERROR 
sRETURN HERE IF 


ERROR ERROR ® DEFINED BY GET SUBROUTINE 
JMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 


a Mage i ;GO WRITE REG) STERS WITH PUT SUBROUTINE 
350$ 


140$: 


;CHECK FOR ERRORS DURING WRITE OPERATION 
Meas. IERR ;G0 CHECK FOR Parrery 


-G0 
RETURN HERE IF ERROR 
DEF 


ERROR ERROR # DEFINED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
oe JMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 
"JSR PC, DTASTS -GO VERIFY TS OF DATA TRANSFER 
BR 160$ : OTOL 0s IF NO ERROR 
NOP ; RETURN here IF 
ERROR etl Poy aot Pat ae DTASTS SUBROUT INE 
eam JMP 350$ HORE OS ie ERROR B WAS FOUND 


SEQ 0080 


PEPE RERERBRSRR Ora ontr hina hirP RPP PEPEPONRASDEABAR ai 
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WR 
o44624 toon CERR G0 CHECK F 
Beoads nt co To 160s uF MO ERROR 
1osG09 See OR Eke meee INED By SEC ORY SECERR SUBROUT INE 
ISR PC, 3(SP)+ :G0 OR HORE ERROR CHECKS 
000137 o10s4e2 ae IMP 350s 0 350$ IF ERROR WAS FOUND 
12737 010300 001122 — nl cgi 
ster 001124 ov 908, SLPEr 
10 ;SKIP TO NEXT OPERATION 
: Cie Gh Mee ee a ee 
190$: 
;PREPARS DEVICE FOR READ OPERATION 
004737 037260 JSR TSTPRP ne bm E DEVICE FOR TEST 
Raddaa gre a : 60.70.2008 IF NO ERROR 
000240 NOP RETURN MERE 
ABTS? o1osue Feo” cos —— HEIR Ay 1 ER PEROT, 
READ DATA FROM DEVICE 
0 MOV eGLF THO+H BBA ; CHANGE NENORY ADDRESS 
: Nov SPUT INK + Sab POT RECTeTER INDEX TABLE 
1 MOVB , (R2)+ 
1 MOVB  SRMOF, (Ro)+ 
1 MOVE SRMDC; (Ro)+ 
1 MOVE § SRMBA, (Ro)+ 
1 MOVB  &RMWC. (Ro)+ 
1 MOVE  sRMCSI. (Re)+ 
1 MOVB 8200, (Re) 
JSR PC.PUT ;GO WRITE REGISTERS WITH INE 
BR ests lt’ GO ut peed a OR 
NOP ;RETURN HERE IF ERROA 
1 ERROR ‘ERROR ® DEFINED BY PUT SUBROUTINE 
000137 o10s42 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
004737 42712 ISR PC,GETSTS :GO TO GETSTS SUBROUTINE 
;WAIT FOR READ OPERATION TO COMPLETE 
004737 043606 JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR READ OPERATION 


vi 
"3 


ee 


2 


Ooooo0oo0000000 
Ce ee en ee oe a eh oe 


See ceeneeerrr erste eT BEL 
aad RSeeprFaTaTT? 


ee ee oe 


NOU LW 


Se URA TER eae ONIONS 


OooooooO00000000 
Ge ae bee a em pe ee be me po eR ee 


% sRokeeoeS 


oO 
i 


Coe TER: PART 3 pacyis 1 eka” 1h PAGE 80 SE@ 0082 


042776 ISR PC, GET G0 READ REGISTERS WITH GET SUBROUTINE 
BR 260s : 





F NO ERROR 
BeROR i REnOR F 
001 o10s42 _ ~JP 3S0$ ‘ eo tects Ree oun 
CHECK FOR ERRORS DURING READ OPERATION 
rr ee OO OTE ae ETS TF RO ERROR 
M04 NOP ; RETURN F 
iouogo ERROR ERROR ® Der I BY PRIERR SUBROUTINE 
SR PC. a(SP)+ GO BACK CHECKS 
000137 010542 it IMP 350s 360 TO IF ERROR WAS FOUND 
004737 056276 aa aoe PC, OTASTS vals VERIFY TS OF DATA TRANSFER 
SO0"0s BR 280S F NO ERROR 
ERROR oc # DEFINED BY DTASTS SUBROUTINE 
rites ERROR bc a(S + Bok FOR iD YRROR CHE 
000137 o10S4e2 IMP 350s :GO TO 350$ IF ERROR a WAS FOUND 
290S: 
737 O44624 JSR PC, SECERR GO CHECK FOR 
ni ee t8 sur oe coe iF 1 eR 
04000 ERROR ERROR # DEFINED BY SECERR SUBROUTINE 
fe ISR PC, a(SP)+ CHECKS 
137 010542 IMP 350$ G0 TO IF ERROR WAS FOUND 
042344 a JSR PC, CMPBUF hore Oe at 8 tate 
1 WORD  BUFONE+4 START OF WRITE BUFFER 
1 WORD  BUFTWO+4 ; START ING OF READ BUFFER 
tal - BR 3108 *G0 70. 3 ERROR 
i ERROR aoe « Oe 
bpatar o10s4e IMP 350$ per ED es f ERROR Has hte 


310$: 


jee peaveneeneneepenneneaeeanapeneeneaneneaneanenenenaeaneaesy 
Lc apeuetuvenncunsaseuesnenseSoinHAAOaEERAESAESAEOAER EER EEEAEEOE 


+éT5 
o00004 
NOP sia OF TEST 
1 001100 MOV SSTACK, SP NITIALIZE STACK POINTER 
013700 001276 MOV 
13701 001446 MOV TSTOUE Ri :(R1) = DEVICE BEING TESTED 
012737 O0000S 001226 MOV #5, STESTN SET TEST NUMBER IN APT MAIL BOX 
H a eS UAT RITE RITE CIECK DATA 
‘(oP FORMAT,WRITE,WRITE CHECK DATA 
10S: 


Pl eee? 14: 


[a ae | 


oe 


ee ee 
4 


a 


te bn be pe be pe ee 


s. 


Pee bee fea pee BS pe Pe ee 
Tw 


S5583 GUUS! | SSeREREE 


ces 


PH OS be ee 


3 
8 
g 


3 


PETE  EERCEEERER Seed Cr Saucer rs Leer 


ACYL 2106) IAT? 0? PACE 1 SEQ 0083 


;PREPARE THE DEVICE FOR FORMAT OPERATION 
JSR PC 130 TASK ern DEVICE FOR TEST 
Oe i. TO 20S IF NO ERROR 


FE a ian» Feng pee gum, 


20S: 
;LOAD PARAMETERS DATA BUFFER 
MOV 80, ;CYLINDER = 0 
MOV 80 TRACK = 0, SECTOR = 0 
MOV SBUF ONE . RMBAO *BUS ADDRESS 
MOV act Ce¥eSb. > +1) ,RMHCO «WORD COUNT = 1 SECTOR 
MOV , RMOFO 316 BIT FORMAT 
MOV WH! GO, RMCS1O *WRITE HEADER AND DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
JSR PC, BADSCT ;CALL BAD SECTOR MODULE 
BR 2s$ -GO TO 2S$ IF NO ERROR 
TYPE ,SCTMSG j TYPE Bad SECTOR ac 
on JMP 3S0$ — * C0 pera RBs FF WAS FOUND 
: HOV ZEROS S,STHPO ;STARTING ADDRESS OF PATTERN 
JSR Pd’ Se NBUF fey CS BUFFER FOR FORMAT 
LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV ;R2 = BYTE ENTRY POSITION 
MOVB aren, (Re 
MOVB SRMDA, (R2)+ 
MOVE § SRMBA, (Ro)+ 
MOVE § SRMWC, (Re)+ 
MOVB § SRMOF. (Ro) + 
MOVB  aRMCSI, (R2)+ 
“ae MOVB —«- #200, (Re) s TERMINATE TABLE 


ISR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 40$ -GO TO 40$ IF NO ERROR 
URN HERE IF ERROR 
ERROR te # DEFINED BY PUT SUBROUTINE 
a JMP 350$ "GO 10 3S0S IF ERROR WAS FOUND 
;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
ISR PC, GETSTS GO TO GETSTS SUBROUTINE 


;WAIT FOR THE FORMAT TO COMPLETE 
JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR FORMAT OPERATION 


EQ? 


SBREA i SL TRL: PT 9 EEO Rae ale RE 
i 
402 
2 


NO ERROR 
TPRP SUBROUTINE 
ERROR WAS FOUND 
Ss 
ISTER INDEX TABLE 


EE ele 


IF ERROR 
;G0 TO 3S0$ IF ERROR WAS FOUND 


;SKIP TO WRITE OPERATION 
DEVICE FOR TEST 
T0 
IF 
I 
TO 
; CHANGE 
: CHANGE 
*WRITE 
PU 
; TERMINATE TABLE 


I 
;G0 ae as: of POTR IRSSrER 


GO TO 1308 IF NO ERROR 
:RETURN HERE IF 
ERROR # DEFINED BY PUT SUBROUTINE 


; PREPARE 


= TASK DESCRIPTOR 
RET 
ERR 


; RETURN 
#80 BACK 


;GO WRITE REGISTERS WITH PUT SUBROUTINE 


PRP 
VE 
a 
an 
Re 
Re 
Re 
{Re 
R2)+ 


SLPERR 


+ FERRELL EEE EEE EE EEE EERE LEELA EERE LESSEE EEE REE E EEE 


a(SP)+ 


WRITE ,WRITE CHECK DATA 
FOR_WRITE OPERATION 


Pc ,DTASTS 
PC 
350s 
PC, TST 
054130 
80S 
350$ 

THE DRI 


- 2 oo ee ae 
Saat es 


NOP 
5a 
;MOVE LOOP meat TO NEXT OPERATION 
& 
80s 


3 


JSR 
WORD 
BR 
NOP 
ERROR 
DATA TO 
MOV 
MOV 
MOV 
MOV 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
JSR 
BR 
NOP 
ERROR 


3 


; VERIFY NO ERRORS DURING FORMAT 


sos 

’ 

60S 

“LOOP #2 

70S: 

;PREPARE DEVICE 
80S 

120$ 

WRITE 


ae  E 
eS SS Se 


REURERASTRE BERL 


ered te HY gt ed 


Ee ROR REBT SOD EER DED ER PEE 


ate 
oSy 
026 
fe 
O34 
040 
Ove 
OS4 
011056 
OS6 
O62 
Hi: 
076 
011076 


: 
: 
5 


011202 


oooo0oo 
as bas Pw ee Pee ee 


es be es Be fe de bee ba Bt Fe he fe Bb be pee 
en ee ee oe er ed = Pe bh 0 he ee fs ee pe te 


oe 


Fe ee ec EE 


FUNCTIONAL Lg PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 83 SEQ 008S 
29-JUL-77 14:18 TS WRITE, WRITE CHECK ZEROS 


172 000137 011534 JMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
176 1308: 


overi2 sSETUP RSGASTER BParTETS *;G0 10 GetsTs SUBROUTINE 


;WAIT FOR WRITE COMMAND TO COMPLETE 
004737 043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
GO READ rs Fe FOR ofRITE 
206 004737 042776 EO READ REGISTERS WITH GET SUBROUTINE 
gle 000404 Tas -GO TO 140$ IF NO ERROR 
14 00240 jRETURN ERE IF ERROR ie 
sie eye 011534 oR » 350$ — :60 ei ¢ ERROR HAG FOUND 
224 140$: 
CHECK FOR ERRORS DURING WRITE OPERATION 
224 004737 043772 ISR PC, PRIERR ;GO CHECK FOR PRIMARY 
BR isds 180." 1508 IF NO ERROR 
NOP ; RETURN F 
1 ERROR “ERROR ® DEFINED BY PRIERR SUBROUTINE 
236 004736 JSR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 011534 se IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
004737 056276 ISR PC, DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ -GO TO I F NO 
si ise is Sea eeu 
1 ERROR | # DEFINED BY DTASTS SUBROUTINE 
004736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 011534 ae IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
264 170: 
264 004737 Oo44624 JSR PC, SECERR GO CHECK FOR SE 
000405 1805 -GO TO 180$ IF NO ERROR 
000240 ; RETURN ERE IF ERROR 
104000 ERROR ‘ERROR ® DEFINED BY SECERR SUBROUTINE 
375 D047 36 ISR PC, a(SP)+ GO BACK FOR HORE ERROR CHECKS 
137 011534 JMP 350$ G0 TO IF ERROR WAS FOUND 
304 180S: 
CHANGE LOOP ADDRESSES 
304 012737 011322 001122 MOV #190$, 
12 012737 011322 001124 MOV #190$; SLPERR 
000410 BR ;SKIP TO NEXT OPERATION 
$ ge wegen TTR pane eeeeraeeannnereenmaeet 
Loop WRITE CHECK DATA 
011322 1908: 
PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 
004737 037260 ISR PC, TSTPRP PARE DEVICE FOR TEST 
054130 054130 ;TASK peScRIPTOR 
200$ ;GO TO 200$ IF NO ERROR 
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011534 


001376 


MACYI11 30(1046) 29-JUL-77 17:39 PAGE 84 
TS WRITE, WRITE CHECK ZEROS 
NOP rere HERE IF ERROR 
ERROR ERROR 0 OFF INE BY TSTPRP SUBROUTINE 
IMP 350$ IF ERROR WAS FOUND 
200: 
240S: 
;WRITE CHECK DATA DATA FROM DEVICE 
Oss Pit Re 0 ;WRITE CHECK DATA DATA COMMAND 
MOV sPUT XR “LOAD PUT REGISTER INDEX TABLE 
NOVE sea fe) )+ 
MOVB * (RO)+ 
nove Bea (ho) 
MOVB  aRMCSI. (R2)+ 
MOVE , (Re) 
JSR PC,PUT ;GO WRITE me we TINE 
BR 250s F NO P ORO ERROR 
NOP -RETURN HERE 
ERROR ERROR & Be Ie PUT SUBROUTINE 
IMP 350$ 60 TO IF ERROR WAS FOUND 
250S: 
TUP TER FER FOR 
SETUP REGISTER er eerets 5590 GeTSTS- SUBROUTINE 
;WAIT FOR WRITE CHECK DATA OPERATION T > 
JSR Be INOUT 130 TO ORO SHIGROUTINE 
GO READ STATUS FOR WRITE CHECK DATA TION 
JSR PC.GET ;GO REAO REGIS WITH T SUBROUTINE 
260$ 0 IF NO ERROR 
; RETURN HERE IF ERROR 
ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION 
SR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
270 F NO ERROR 
ERR Deg ha ae Hep BY PRIERR SUBROUT INE 
ian JMP 350$ a ered ROR SHOR. WAS FOUND 
" ‘JSR PC, DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 280 280$ IF 
NOP : RETURN igte "9, 
ERROR “ERROR # BEE INED BY DTASTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR 
IMP 350$ :GO TO 350$ IF ERROR BAS FOUND 
2860S: 
2390S: 


SEQ 0086 





ssissacsscdacnsaaacncgescacsceceees 1 


011562 


E RSSSaee 


oo 
peo he 
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eat 


FUNCTIONAL TEST, 
29-JUL-77 14:18" 


Si 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 8S 0087 
TS WRITE, ZEROS = 


WRITE CHECK 
JSR PC, SECERR ;G0 CHECK FOR SECONDARY ERRORS 
BR 300$ To. F NO ERROR 


JSR PC, a(SP)+ ibs BACK FOR RORE ERROR CHECKS 
i s60°T0 3608 IF ERROR HAS FOUND 


300: 
350S: 
5 ; RERRRREREEEEE LHSSRKKKALERARAERAASAEERAARREARRRERA REALE EAA RHE EE 
TEST 6 WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
; einen 
;SCOPE CALL 

MOV T ST a ize STACK POINTER 

NOV INA ize Stack, 

MOV TSTOUE R1 *(R1) = DEVICE BEING TESTED 

MOV 86, STESTN SET TEST NUMBER IN APT MAIL BOX 
; ee eee UE INI MI aX aa 
0 00P FORMAT,WRITE,WRITE CHECK DATA 
10S: 


;PREPARE THE DEVICE FOR FORMAT OPERATION 


COoo0Oo0o0O000O 
he Gs bb bh bs pe he 
bo Se PH a 


Rannoe eke 


SESCSCLSCSCSESCSCESCSSC CSCS SCLCLCEL 
Ne Te ed el ed ek ae eed ed 
Bao NTN FW - OSB VERE OO 


: 


004737 JSR PC, TSTPRP DEVICE FOR TEST 

054130 .WORD 054130 ;TASK pescrIPT 

bo044 BR 20S -GO TO 20S IF NO ERROR 

NOP ; RETURN HERE IF 
404000 ERROR ;ERROR # DEF ENED BY TSTPRP SUBROUTINE 
i IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 

LOAD PARAMETERS AND GENERATE DATA BUFFER 

of HOV 0 RRDSS eek ci SecTOR 0 

p1s35 MOV ONE. RMBAO ‘BUS KooRESS ir 

012737 MOV 8<#0<24256. 41>, RMWCO -WORD COUNT = 1 SECTOR 

012737 MOV 16, 16 BIT FORMAT 

012737 MOV WH! GO; RMCS10 tWRITE HEADER AND DATA COMMAND 
;VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 

004737 JSR PC, BADSCT ;CALL BAD SECTOR MODULE 

00405 2s$ GO TO ess I No NO ERROR 

104401 TvPe , SCTMSG Beet Dee HOR MESSAGE 

ieotae 012752 oat P 350$ OE eo Bs fF ERROR LES F BROR HES. FOUR 

012737 070060 001174 “MoV #ZEROS, STMPO 2 TARTING ADDRESS OF PATTERN 

o1e7a7 09001 001176 MOV #1 i gel sees OF PATTERN 

7 i ISR GO GENERATE BUFFER FOR FORMAT 

;LOAD PUT REGISTER INDEX TABLE FOR <i OPERATIION 

012702 001533 MOV #PUTINX, Re ;R2 = BYTE ENTRY POSITION 
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29-JUL-77 14:18" 16 WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
112722 MOVB § SRMDC, (R2)+ 
112722 MOVB = RMA, (R2)+ 
SRMBA, (R2)+ 
wer ese 
112722 MOVB = SRMCSI, (Re)+ 
112712 ah MOVE 8200, (Re) ; TERMINATE TABLE 
FORMAT THE DRIVE 
o047 37 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
4o$ “GO TO 405 IF IF NO ERROR 
000240 NOP 1 My HERE IF ERROR 
ERROR ¥ OS Tee PUT SUBROUTINE 
137 012752 IMP 350$ 0 IF ERROR WAS FOUND 


TERUKE soRKON 


40S: 
004737 oN2712 SETUP OT RECS TER eters Tee FOS Fo eerste SUBROUTINE 


;WAIT FOR THE FORMAT TO COMPLETE 
004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
GO READ STATUS FOR FORMAT OPERATION 
737 042776 J5R PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
Bp04e4 BR so$ TO SOS IF NO ERROR 
oge49 NOP ; RETURN teRe IF ERROR 
1 ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
000137 012752 set IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
; VERIFY NO ERRORS DURING FORMAT 
904737 056276 JSR PC. DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
BR 60$ GO TO IF NO ERROR 
000240 NOP ; RETURN IF ERROR 
404000 ERROR ERROR # DEFINED BY DTASTS SUBROUTINE 
7% ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 012752 ae IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
; MOVE 1.008 ADDRESSES TO NEXT OPERATION 
012737 012050 001122 #705, SLPADR 
012737 012050 001124 NOY #70; SLPERR 
000410 BR 80s ;SKIP TO WRITE OPERATION 
: ee ante dan 
' C 00P WRITE,WRITE CHECK DATA 
70S: 
PREPARE DEVICE FOR WRITE OPERATION 
004737 037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
054130 -WORD 054130 ;TASK DESCRIPTOR 
000404 BR 80$ -GO TO 805 IF IF NO ERROR 
RETURN HERE IF E 


SEES SCSCSCSCSCSCSCSSS SSCL CSCS 
eo a ee ee 


SBSSRRLORBSELRREBR ERIS | 
o 
SIREN FERRERS 


LEC ecco 
be be 


Bee 


ee ee 


SESSSSSSESS 
GROSIGRRASOINS | SSSR 


SELES EELC SESS CCC 


SSSRAN RNS 


est hee ae Pas Be ht fe ee fee me fee Pt Boe ee 


SES PO AT PI Be so oes 


104000 ERROR ERROR # DEFINED BY TSTPRP SUBROUTINE 
000137 012752 a IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
120$: 
1 177900 g01409 RTE ORT TO Te AD RINE > .RPRICO WORD COUNT 
ee a | Oe eae 
ae rte MOV seuT Nk LOAD PUT REGISTER INDEX TABLE 
112722 000006 MOVB , (Re) + 
lige ee nave Sern, (het 
11 MOVB § SRMBA, (Ro) + 
1l27e2 000002 MOVE  SRMWC. (Ro)+ 
ile7ee 000000 MOVE  SRMCSI, (R2)+ 
il 000200 MOVB = 8200, (R2)+ ; TERMINATE TABLE 
004737 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
tat BR 130s F NO ERROR 
NOP ; RETURN 94 
104000 ERROR : ERROR e DEF INED BY PUT SUBROUTINE 
000137 012752 ile IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
; SETUP GISTER INPUT BUFFER FOR ING STATUS 
004737 042712 PC, GETSTS TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND TO wrt 
004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
904737 042776 JSR PC.GET ;GO READ REGISTERS WITH GET SUBROUTINE 
BR 140s -GO TO 140$ IF NO ERROR 
000240 ;RETURN HERE IF ERROR 
104000 ERROR ERROR ® NED BY GET SUBROUTINE 
000137 012752 ae IMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
;CHECK FOR ERRORS DURING WRITE OPERATION 
737 043772 JSR PC. PRIERR ;GO CHECK FOR PRIMARY ERRORS 
Sroves BR 1sds -GO TO 150$ IF NO ERROR 
000240 ;RETURN HERE IF 
04000 ERROR ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
736 ISR PC, a(SP)+ : FOR HORE ERROR CKS 
137 012752 ison JMP 350$ G0 TO IF ERROR WAS FOUND 
004737 056276 " ‘JSR PC, DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
000405 BR 160$ -GO TO 160$ IF NO 
oo0e40 NOP ;RETURN HERE IF ERROR 
OM FRROR bc acsp)4 SER BACK FOR-HORE ERROR CHECKS 
b00137 012752 ae JMP 350$ , :GO TO 350$ IF ERROR WAS FOUND 





07 





OZRNEA - RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 88 SEQ 0090 
OZRMEA.P11  29-JUL-77 14:18 Tb WRITE, WRITE CHECK ZEROS W/ WCE ERROR : 
SR PC, SECERR GO CHECK FOR SECONDARY uEPRORS 
NOP ; RETURN ihe"? Bice — 
ERROR ‘ERROR # DEF INED BY SECERR SUBROUTINE 
ISR PC. a(SP)+ GO BACK FOR MORE LeRoR S 
IMP 350s GO TO 350$ IF ERROR WAS FOUND 
;CHANGE LOOP ADDRESSES 
HOV #1308, SLPADR 
MOV He gol ;;ESCAPE TO 195$ ON ERROR 
eas 4 Poe peccragee ty art Soar oo pr neeerenanemanememeestpuyionien 
Hea ‘LOOP WRITE CHECK DATA 
4 
4 012320 190S: 
4253 012320 012703 000001 MOV #1,R3 ;R3+WCE BIT POSITION 
4 012324 050337 107522 195$: BIS R3, BUF TWO-2 ‘CHANGE LAST WORD OF BUFFER 
4 PREPARE DEVICE FOR (RITE CHECK DATA OPERATION 
4 012330 004737 037260 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
4 1334 054130 . WORD ps4 130 TASK DESCRIPTOR 
4 1 BR GOTO. 2008 1 IF NO ERROR 
260 Le340 000240 NOP peru fee Ir ERROR clas 
Sh HIER BRI crese ae PO OPTS od Be Po 
4 12350 200: 
ube 012350 240 
use oom DATA FROM DEV 
y 12350 012737 000051 001376 MOV ANT 'GO, RMCS10 ;WRITE CHECK DATA DATA COMMAND 
4 1 01 001533 MOV #PUTINX. Re LOAD PUT REGISTER INDEX TABLE 
4 1 il 000006 MOVB = SRMDA, (Re) + 
ig?) 1 il 000032 MOVB = SRMOF, (Ro) + 
4 12372 11 000034 MOVE = SRMDC’ (Ro) + 
4273 Ol 11 000004 MOVB BRNBA, (RE) + 
4 1 il ooo00d2 MOVE  SRMWC’ (RO)+ 
4 1 il 000000 MOVB  SRMCSI, (R2)+ 
i le4i2 11271 MOVE «#200, (Re) 
4278 01 004 043246 JSR PC.PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
a Gisies Booey BR en 0 250$ IF NO ERROR 
Heed 1 000240 NOP ceva A oF ERROR 
ie HEE 137 012752 GRROR 350$ ™ G0 103508 iF IF T ERRDR HAS FOUND 
1283 1 250: 
4 ;SETUP REGISTER INPUT BUFFER FOR READING ST aTus 
‘28 012434 004737 042712 JSR PC, GETSTS ;G0 TO GETSTS SUBROUTINE 


4288 ;WAIT FOR WRITE CHECK DATA OPERATION TO COMPLETE 





DZRMEA - RMOZ FUNCTIONAL | TEST, PART 3 HACYLL 30( 1046) nie at SEQ 
DZRMEA.P11  29-JUL-77 14:18" PRITES WRITE CHECK me w/ ERE ER ERROR vate 
1299 012440 004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
4291 ;GO READ STATUS FOR WRITE CHECK DAT aa 
T ;G0 TH INE 
Se RS meg or Bag io Reto SEM PT 
ubae ies iaietd ERROR aa So BY GET SUBROUTINE 
ce ol : 000137 012752 IMP 350$ TO 3S0$ IF ERROR WAS FOUND 
4 S178 . 
4500 01 043772 jCHECK FOR ERRORS DURING WRITE CHEGK DATA FOR P PRIRRY ERRORS 
daar Bt aes BR 270 GO T IF NO ERROR 
4303 O1s472 T0400 ERR iF RROR fever 
4 1 404 ERROR “ERROR # DEFINED BY PRIERR SUBROUTINE 
4 12474 736 ISR PC, a(SP i+ GO BACK FOR MORE ERROR CHE 
‘ 1 000137 012752 tea IMP 350$ ;G0 TO 3S50$ IF ERROR RAS FOUND 
4 i 032737 040000 01336 “BIT SWCE , RMCS2I ;HAS “WCE” DETECTED?? 
4 1251 1030 BNE 2ess *YES!! 
4 1251 056276 ISR PC. DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
4310 01251 BR 280s -GO TO F NO ERROR 
43h 1 o00240 NOP sRETURN HERE IF 
4312 Ol ERROR : # DEFINED BY DTASTS SUBROUTINE 
43h 1 Oor73e JSR PC, a(SP)+ GO BACK FOR MORE CHE 
4 14 i 137 012752 si IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
4 iB Oise 001140 : RMCS2 T ;EXPECTED STATUS 
ig Slee Gia7a onia% ong toy AaceeL sane 
4318 O1 1 001336 001142 MOV 1, SBDDAT RECEIVED STATUS 
4 1 1 001174 MOV R3, STMPO *FAILING BIT POSITION 
4 t i ete an ae Heh BE TECTED 
4 BiSe58 Apo BR 350$ 
4 1 25S: 
4 1 112737 000022 001504 #RMDB,GETINX § ;SETUP GET INDEX TABLE 
4 1 12737 000200 001505 MOVB #200, GETINX+1 
4 1 042776 ISR PC, GET GO GET THE CONTENTS OF THE DATA BUFFER 
4 1 BR 290$ GO TO 290$ IF NO ERROR 
4 tsete TOE HRROR tO ROR DEFINED BY Get SUBROUTINE 
: {538 eae 012752 JMP 350$ -GO TO 350$ IF 
4 012624 290S: 
4 1 1 001 001142 MOV RMDBI T RECEIVED DATA 
cS) 1 133 1 001140 MOV BUF TWO-2, S$GDDAT ‘EXPECTED DATA 
* 1 0011 BIC R3, SGODAT 
4 1 Ot 001134 MOV 8BUF TWO-2, SGDADR sEXPECTED ADDRESS 
4 1 1 1 001136 MOV RMBAI , SBDADR *RECEIVED ADDRESS 
4 1 162737 000002 001136 SUB #2, SBOADR : T ADDRESS 
“mi ner : 001134 001136 CHP SGDAOR, SBOADR ty 0K?? 
4 : 12676 rt ERROR i *WCE AT UNEXPECTED ADDRESS 
4343 012700 O00424 BR 
4344 Ole702 623737 OO114O0 001142 295$: CMP SGDDAT , SBDDAT ;DATA OK?? 





DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACYI1 30(1046) 29-JUL-77 17:39 PAGE 90 SEQ 0092 


11 lili" 1 eae 


OZRMEA.P11  29-JUL-77 14:18 Té WRITE, WRITE CHECK ZEROS W/ WCE ERROR 
g ° te 
s seat Tas ERton ot i URExPectep WCE DATA 
4 012716 2968: 
4 1 737 044624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
4 1 BR 300$ 82, "0. F NO ERROR 
4 1 104000 ERROR ;ERROR 8 8 DEFT fe BY CEPR SUBROUTINE 
4 1 0047 3 ISR PC, a(SP)+ : 0 BACK FOR HORE 
{ i 137 012752 im IMP 350s 0 350S IF ERROR” BAS FOUND 
4 : 
4 107522 IC , BUFTWO-2 sRESTORE DATA PATTERN 
1353 Bias Rak 3 Bae oF 0 NEXT BIT 
4354 nea vetkig 012324 oes IMP Fes EXIT IF ret T FOR NEXT DATA BIT 
4363 012752 012737 001210 "MOV #0, SESCAPE ;;ESCAPE TO 0 ON ERROR aeael tar alld 
ies bisree Bists> Biiees BBti ais. babe — 
4262 iktesT 7 WRITE, READ 
uses 1 ; itp: 96-9 3636 9-96 J 9 90 9 9 a a 9 a a a a a a a a a 
4370 is : 
os Be i re 
ie 613000 012708 901100 HOV sSTACK SP ‘ jINITIALIZE STAC STACK POINTER 
¢ 
4 13010 O1 14 MOV TSTQUE RI i: ) = ING 
4 eats 813995 Bpdcae 001226 MOV i? rere = OeVice BING ABT A MAIL BOX 
a H Ag geeeeeeeenenaneenerenrerraseeeseennnneeneennenninssen 
4 ’ ’ 
4380 013022 10S: 
4 PREPARE THE DEVICE FOR FORMAT OPERATION 
= ie geo Tio GEATSO™ asx oeSOtan CEVTOE FOR TES 
4 1 BR 20S GO TO 208 IF IF NO ERROR 
4 13032 000240 NOP 1 a3 IF ERROR ROR cap 
4 bisase ABS a 014016 oh 350$ ERROR 8 Oe TO ast ire FOUND 
4390 ‘ 
4 ;LOAD PARAMETERS TE DATA BUFFER 
4 1 012737 000000 001432 MOV a0, RE -CYLINDER = 0 
4 i 1 B01 40s MOV ‘TRACK = 0, SECTOR = 0 
' i i i 001 MOV FONE, RNBAO ;BUS ADDRESS 
4 1 1 bio000 01430 HOV Wc 20056 #1) , RICO TP BIS FORMAT. es 
813108 b15939 000063 001376 MOV tH! GO; RNCS10 ‘WRITE HEADER AND DATA COMMAND 
4333 VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
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OZRMEA.P11  29-JUL-77 14:18 17 WRITE, READ ONES 


we BSI BBdKte 


tis 
Be: 


PC, BADSCT 
,» SCTMSG 


Ss 353 °8 


B8ONES, STMPO STARTING ROORESS OF PATTERN 
#1, STHPL RANGE OF PA 
PC, GENBUF GO GENERATE BUFFER FOR FORMAT 


GISTER ie TABLE FOR FORMAT OPERATIION 
;R2 = BYTE ENTRY POSITION ~- 


=a & 
zn S 


scat 
aan 


PU 


; 


; TERMINATE TABLE 


Bt bn bee fe be Re te 


ux $BSSESSE 


ehenoeneneee 


oe ee ae ame 
fe SS 


0 350$ IF ERROR WAS FOUND 


ee 
Be 
8 


;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 


;WAIT FOR THE FOReT TO COMPLETE 
JSR PC, TIMOUT 


a 


;GO TO TIMOUT SUBROUTINE 


;G0 =, TATUS pore oreraT ion 
PC, GE "60 READ REGISTERS WITH GET SUBROUTINE 
| RETURN ;GO TO SOS IF NO ERROR 


Re HERE IF 
ERROR ERROR # DEFINED BY GET SUBROUTINE 
IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 


Bo pH b= bo Pm ee 


; VERIFY NO ERRORS DURING FORMAT 
JSR PC. DTASTS GO VERIFY RESULTS OF ATA TRANSFER 
BR 60$ -GO TO 60$ IF NO ERROR 


URN HERE IF ERROR 
a os ace eotct Peta reer OTIS 
JMP 350$ ' 60° TO S608 TF ERROR HAS FOUND 


;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70$, SLPADR 


#70$, SLPERR 
80S 


Bee Ree Spy 


aacret es ste ee ern 


ooo 
a 


;SKIP TO WRITE OPERATION 





cote: 


OOOO 


ob 


8 
4 


SGSAIROARONS IAA ISS LIS AAASAAAAAAAeASSSAStagtATIELEAA UA 


R Gi i gk 


Hii 
ty 


608 
, PART 3 RACYIL 30(40N6),, 29-34-77 17:39 PAGE 92 : 


5 p RERRSRERESEEEEE SEES SR EEEEE EEE E EEE EEE EEE EEE EEE 
;LGOP #2 ss WRITE, READ 


70S: 
;PREPARE DEVICE FOR WRITE OPERATION 


JSR 


FR oo  SAISO stack DESCRIPTOR ue OR TEST 
BR Sts«éOS 


;G0 TO 80S IF NO ERROR 


NOP ;RETURN HERE IF ERROR 
o14016 ie 3508 sERROR 8 05 10-50% IF ERROR Hes FOUND 





DATA TO IVE 
MOV neue Ore RMBAO CHANGE MEMORY ADDRESS 
NOY Sem alzik RE DATE Ce 
MOV sea noe + OA0 PUT REGISTER INDEX TABLE 
MOVB = SRMDA, (R2)+ 
MOVB sree’ 16) 
*(Re)+ 
MOVB  SRMWC., (RO) + 
ee 
, (R2)+ ; TERMINATE TABLE 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 130s -GO TO 130$ IF NO ERROR 
NOP ‘ RETURN AERE IF ERROR ; 
014016 EREOR 3608 TORROR Oe OT OSes TF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
042712 ISR PC, GETSTS ;G0 TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND TO COMPLETE 
043606 ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
BR 140s -GO TO 140$ IF NO ERROR 
; RETURN IF ERROR 
ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
014016 aa IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
;CHECK FOR ERRORS DURING WRITE OPERATION 
043772 JSR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
10s ;GO TO 150$ IF NO ERROR 


‘ 
‘i 
z 
: 
3 
. 


NOU£U) : 


sh pe ee 


KA 


PEPPER ROR NRRNRSS copies eoecnnooR Moa NNON Tees 


paCYLI OAH ee pele Ones” or PAGE 93 nn 0095 


1 : 
1 
iy ieee ree a parmerem 
ee nn ies rou 
1 056276 * ‘JSR PC. OTASTS ;60 VERIFY OF DATA TRANSFER 
1 ees BR Gos oa F NO ERROR 
1 1000 ERROR iF EROR cP IND SY DTASTS SUBROUTINE 
1351 if JSR PC. a(SP)+ EO BACK CHECKS 
13512 000137 014016 IMP 350$ CO" Os IF ERROR WAS FOUND 
1351 160S: 
13516 170S: 
1 90737 OHHees ISR PC, SECERR ;G0 CHECK FOR SECONDARY ERRORS 
t BR 1805 GO TO 180s IF NO ERROR 
OL ees TD600 Ein Bereta CERR SUBROUTINE 
1 JSR PC, a(SP)+ CKS 
bi sez 000137 014016 IMP 350 wah 10% IF ERROR WAS FOUND 
1 180$: 
1 12737 013554 001122 , ol g $e 
esr ptS535 013554 001124 MOV Hes SPEAR 
13552 000410 BR 500s ;SKIP TO NEXT OPERATION 
; OT Wreweng “o prerrameen eens seysespgnene cesar erate 
013SS4 190: 
PREPARE DEVICE FOR READ OPERATION 
013554 004737 037260 ISR PC, TS DEVICE FOR TEST 
13560 054130 gltoRO Si 054130 ;TASK vescRIPT al ae eink thehaenes 
eae cea NOP ;RETURN HERE IF ERROR 
013566 104000 ERROR “ERROR ® DEFINED BY TSTPRP SUBROUTINE 
1 137 014016 IMP 350$ ;GO TO 3S50$ IF ERROR WAS FOUND 
013574 200S: 
013574 240S: 
READ DATA FROM DEVICE 
913574 012737 107530 001402 MOV #BUF TWO+4  RMBAO ; CHANGE NEMORY ADDRESS 
13602 012737 000071 001376 MOV #RO!GO, RMCS1O *READ DATA 
13610 O1 001533 MOV SPUTINX, Re ‘LOAD PUT REGISTER INDEX TABLE 
13614 11 000006 MOVB = SRMDA, (Re) + 
1 il do0032 MOVB = SRMOF, (RO) + 
1 11 MOVB = SRMDC, (Re) + 
Oe {15755 pooo0e yg SBmuc’’ (rays 
01 115755 cree MOVB SRMCSI. (R2)+ 
013644 112712 MOVB —- 8200, (Re) 
013650 004737 043246 ISR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 


SELLA ASELSSSISIAASSA LORE ERASE TSASSIINE a 


fae et bbe Re Re 
OOOOOOOCOOOOOO00O OOOOOOOO0OOO0O0oO 


FRR EES RO 
WOVRN£ WMO 


BERER 





i BSL 


be ee be hh he ee 


é SSeS SUNS: 


Sie Gein GEN Gel Gan f 3 


014016 


014016 


DOS 
WECYLI SOC 40MG), 29-JUR-77 17:39 PAGE 


GO TO 2S0$ IF NO ERROR 


BR 2S 0S 
ee kr ae 
5 SETUP REISER a trTets G0 10 GeTsTs- SUBROUTINE 


sae ror ied OBE TIMGUT ip Cor 0 TO TIMOUT SUBROUTINE 
;GO0 READ STATUS FOR READ OPERA 


<7 ee ;60 G0" READ essen ests Teno ERROR 


eR en A 
Te  asos PET TORRE SF chron tne Foun 
;CHECK FOR ERRORS DURING READ OPERATION 
ISR PC. PRIERR 560 CHECK F FOR PRIMARY ERRORS 
BR 270s TO 70s I F NO ERROR 
I PRIERR INE 
FR oe arspys a iby re SUBROUT 
ioe IMP 350s ;G0 TO 350$ IF ERROR WAS FOUND 
“ ‘JSR PC, DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 
BR 280s F NO ERROR 
NOP ; RETURN 
FoR PC.a(SP)+ ET BRC Der rtep Tene 
IMP 350 , ;60 10 x08 Te ERROR WAS FOUND 
e908: gk PC, SECERR ;GO CHECK FOR 
Se Soe ie Baa" Oe 
NOP ; RETURN F 
ERROR “ERROR # DEFINED BY SECERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR 
oa JMP 350s G0 TO IF ERROR WAS FOUND 
" ‘JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
-WORD BUFONE+4 ;STARTING ADDRESS OF WRITE BUFFER 
“WORD  BUFTWO+4 : STARTING OF READ BUFFER 
BR 10$ 19 310$ ERROR 
NOP RETURN HERE IF 
ERROR : DEFINED BY CMPBUF SUBROUTINE 
i IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 


350$: 
XHMMMMMBHMMHHHHHHHHHHHHHHHHHHH HEHEHE HEHE EE i ie ata it 
t ATEST 10 WRITE, WRITE CHECK ONES 


safes Ui 


SEERERERRPR SB ORR OnRORSeceatotes 


FEAT 
AZd08= 


Bact 


gees 


E08 
pi? GTZ TERR PART > PGT! EEO Latte Check ones”? PE om oe 











+ £88 REE RERERESERERAAASEE 
réti0: 
MOV SSTACK, SP jah BCK POINTER 
MOV SBASE RO 
MOV TSTQUE, Ri ay ; = DEVICE Be 
MOV #10, STESTN perk wh es MAIL BOX 
g eee eee IT ITE iT’ O&K OHTA 
‘LOOP FORMAT,WRITE,WRITE CHECK DATA 
014044 10S: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
014044 004737 037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
140SO0 054130 -WORD 054130 ;TASK DESCRIPTOR 
is SooHO4 BR 20 £2, 0. 205 IF IF NO ERROR 
1 sERROR ‘ fe OEY TSTPRP TINE 
140e8 O00137 015010 ce 3sos Se BCBS IF ERROR LAS FOUND 
014064 20S: 
;LOAD PARANE TERS oft, carer GENERATE DATA BUFFER 
rf i te Me ees arte ROY a, c SecTOR = 0 
neat Bise3e eter 001402 MOV BUS i 
14106 012737 001400 MOV secon ee +1? ,RMCO WORD COUNT = 1 SECTOR 
14114 O1e737 001430 MOV 8FMT16, RMOFO ii BIT igenaT 
141 1 1376 MOV #idH! GO; RMCS10 WRITE HEADER AND DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR var 
141 040174 JSR PC, BADSCT ;CALL BAD SE 
Ore BR 2s$ Pati BSS TE Ho ERROR 
1138 104401 066704 TYPE  ,SCTMSG TPE. a's SECTOR MESSAGE 
ee cr a HO 8 OE HORS HPP einok we Fa 
ht 012737 070016 001174 "MOV #ONES, STMPO ;STARTING ADORESS OF PATTERN 
14156 012737 000001 001176 MOV #1, $THP1 “RANGE OF PATTERN 
14164 004737 042100 ISR PC; GENBUF GO GENERATE BUFFER FOR FORMAT 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 


14170 O1 1 MOV SPUTINX, Re ;R2 = BYTE ENTRY POSITION 
14174 15705 rere MOVB SANDE CRED + 

14200 112722 000006 MOVB § SRMDA, (R2)+ 

at i 000004 MOVB eRMBA, (Re) + 

t le 

i4si8 il Nove SRNOF? (RO) 

14 il 000000 MOVE  sRMCSI, (Re)+ 

1ieed 112712 000200 ~ MOVB #200, (Re) ; TERMINATE TABLE 


;FORMAT THE DRIVE 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 


; 
8 
g 
2 
Ff 





aft 43 


SSSESSLSELS FFFKFFFEE 
RERRERERRRR DAA 


£££ 

N™N 
ry 

—© 


-Pl 


1 
Re 
Bei 
1 


014246 


oon Win i 3 nak 


012737 


obvi 


coos. 


222 
8 
8 


015010 


042712 


014332 
014332 


015010 
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T10 WRITE, WRITE CHECK ONES 
40S Turn ioke tr chron 40S IF NO ERROR 


GA Enon © DEF NED BY FUT, SUBROUTINE. 


40$: 
; SETUP cer REGISTER I TABLE FOR READING STATUS 
PC, GETS ;GO TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO COMPLETE 
JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
= oe Ber oes "G0 READ "REGISTERS WITH INE 
sos Go 10 os 1Poae ERAOR 
NOP F ERROR 
ERROR ERROR oS HED BY GET SUBROUTINE 
= IMP 3S0$ TO 350$ IF ERROR WAS FOUND 
; VERIFY NO ERRORS DURING FORMAT 
JSR PC. OTASTS :GO VERIFY ro os OF DATA TRANSFER 
60$ ee 605 IF NO ERROR 
eran 
INED BY DTASTS SUBROUTINE 
ISR pc,gcsh)+ CHECKS 
we JMP mur» TO IF ERROR WAS FOUND 
ae ; MOVE LOOP AOORESSES TO MEX NEXT OPERATION 
001124 SERA 
nov a798, ;SKIP TO WRITE OPERATION 
: ee a ate let eee Ge ee 
C00P WRITE,WRITE CHECK DATA 
70S: 
PREPARE DEVICE FOR WRITE OPERATION 
ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
. WORD 954130 TASK DESCRIPTOR 
-GO TO 80$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR “ERROR ® DEFINED BY TSTPRP SUBROUTINE 
ae IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
120$: 
nia WRITE ATA TO THE DRIVE es 
001400 MOV we Perce CHANGE TER count : 
001376 MOV #WD'GO, RMCSLO ‘WRITE DATA COMMAND 





sj 


LEE SC CLC CL 


saigalg 


wi 
= 
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1 29-JU-77 14: T10 WRITE, WRITE CHECK ONES 
piaaod ie7ee Duce Nove SRMDAN RC) en See ee 
14404 11 03 * (RO)+ 
Waid i ’(RO)+ 
44] * (Ro)+ 
iwaey fi Nove SRMCSL CRO} 
seh 115766 C Nove wood (Rey ; TERMINATE TABLE 
14434 737 JSR PC.PUT ;GO WRITE REGISTERS WiTH PUT INE 
ae «le Phe "te leemon "O ERROR 
14444 (1 ERROR “ERROR SRE ED BY SUBROUT INE 
G1uig 000137 015010 i ;G0 TO 350$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
0144S2 004737 042712 ISR PC,GETSTS ;GO TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND TO COMPLETE 
014456 004737 043606 JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
alee ree 042776 JSR PC, T ;GO READ REGISTERS reg SUBROUT RO INE 
a SR ; RETURN F — 
Lars BB? ie On © OSHS SF MO UF 
14374 137 015010 ont IMP 350$ G0 TO OUND 
CHECK FOR ERRORS DURING WRITE OPERATION 
914500 737 043772 JSR PC. PRIERR G0 CHECK FOR PRIMARY ERRORS 
b14e06 Re 186s RETURN fete TO eon MOE 
o1519 104 ERROR ‘ERROR ® DEFINED BY PRIERR SUBROUTINE 
1451 7% JSR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
14514 000137 015010 ak IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
14250 904737 056276 + om PC, DTASTS GO VERIFY TS OF DATA TRANSFER 
1 BR 160$ -GO TO 160S IF NO ERROR 
1 000240 NOP RETURN HERE IF ERROR 
i oo? JSR PC, a(SP)+ ERROR COR ROSE ERROR CH —_ 
Bie at 015010 oe IMP 350$ : GO" TO IF ERROR WAS FOUND 
Q145H0 170S: 
1 004737 o44624 JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
014544 0040S BR 1980S 520 19 180$ IF NO ERROR 
bi aecs tant ERROR i BEROR DEFINED BY SECERR SUBROUTINE 
145S2 004736 JSR PC, a(SP)+ GO BACK FOR CHECKS 
Bie 000137 015010 ae IMP 350$ :G0 10 se08 ‘P ERROR WAS FOUND 


;CHANGE LOOP ADDRESSES 
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DZRMEA.P11  29-JUL-77 14:18" T10 WRITE, WRITE CHECK ONES 
4793 O14S60 012737 014576 001122 MOV #190S, SLPADR 
4794 014566 012737 014576 001124 MOV 8190S, SLPERR 
4 014574 000410 BR 200$ ;SKIP TO NEXT OPERATION 
y ; ee enn ieee Gee 
4 :L00P WRITE CHECK DATA 
4799 
4800 014576 190S: 
“Be ; PREPARE DEVICE FOR WRITE CHECK DATA TION 
4 014576 004737 037260 J PC 1 pl sal DEVICE FOR TEST 
‘Be ot a 92, 0. 200s I IF NO ERROR 
1461 RROR sERROR ‘ INE 
Biel 137 015010 Re 350$ "eerHeD Br Is TER OR ES: FOUND 
480 14616 200S: 
481 014616 240S 
els 001376 — oon “- BGO ERCSHO WRITE C TA DATA C 
upie BoC IRX’ Re i AD PA HEE PCTER INDEX T 
4B16 nove #RMOA, (R2)+ 
1 MO SRMOF , (RO)+ 
4818 MOVB § SRMDC; (Re)+ 
4819 MOVB SRNBA, (Re) + 
det Move bancsI Cave 
MOVB —- #200, (Re) 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 250s 0. F NO ERROR 
NOP ; RETURN HERE 
ERROR * ERROR . DEFINED BY PUT SUBROUTINE 
igee IMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
250$: 
uB3 t ;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
Wee 014702 004737 o4e712 ISR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 
4834 WAIT FOR WRITE CHECK DATA OPERATION TO COMPLETE 
4835 014706 004737 043606 JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
1897 GO READ STATUS FOR WRITE CHECK DATA OPERATION 
014712 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
4639 014716 OO0404 BR 260$ -GO TO 260$ IF NO ERROR 
14 000240 NOP ;RETURN HERE IF ERROR 
ue4 014722 104000 ‘ERROR ® DEFINED BY GET SUBROUTINE 
o1y7e4 000137 015010 IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
io 14730 260S: 
“CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION 
a cali alee SNe ere 
ioe 014736 000240 ; RETURN ithe’ IF ERROR 





PERCCRTEPSPREAP I LI UtLt Ut WERERPRRRR ccd iid comets dian a3 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 
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1 23-SUL-77 14:18" MG OREO unite check ones me Coes 
014740 104000 ERROR ;ERROR # DEFINED BY PRIERR SUBROUTINE 
014742 004736 JSR PC, a(SP)+ GO BACK FOR ERROR CHECKS 
oy 000137 015010 om IMP 350$ G0 TO IF ERROR WAS FOUND 
1 056276 i PC. DTASTS ;G0 VERIFY OF DATA TRANSFER 
ois Ooibe aR OBS Go 10. S008 1 IF NO ERROR 
4 NOP RETURN ies. Ie’ Error : al 
Bt a3e8 . ABaoSe FRROR oe acsp)4 ERROR 8 PER NBR ERROR Chece 
th 000137 015010 ay ee 350$ ;GO TO 350$ IF ERROR WAS FOUND 
14770 290S: 
14770 004737 044624 JSR PC, SECERR ;G0 CHECK FOR SECONDARY ERRORS 
14774 BR 300$ IF NO ERROR 
14 NOP ; RETURN 
15008 1 9 ERROR ie ncamed Poy ORs BEE INED BY SECERR SUBROUTINE 
01800 a 015010 JMP 350$ BACK OTT ee TP ERROR i WAS FOUND 
15010 300S: 
015010 
Ca ert ae rer tetera 
TEST il WRITE, WRITE CHECK ONES W/ WCE 
015010 } jianeee I: PEETTTT TTT TTT TT TITTTTSTT TTT TT TT TTT TTT TTT Tt tT Tt tt ttt Tt tt | 
15010 000004 : ; 
Btepie 000240 NOP ;START OF TEST 
015014 012706 001100 MOV #STACK, SP ‘INITIALIZE STACK POINTER 
15020 Ot 001276 MOV : RO=UNI 
i 13701 001446 MOV $80 ae Rl 3 (RL) = DEVI ING TESTED 
15030 012737 OO0011 001226 MOV #11, STESTN SET TEST NUMBER IN APT MAIL BOX 
; fe IRIE IIIc GEC DATA 
L00P FORMAT, WRITE,WRITE CHECK DATA 
015036 10S: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
015036 004737 037260 JSR PC TSTPRP -PREPARE DEVICE FOR TEST 
b150H2 4130 .WORD 054130 ;TASK DESCRIPTOR 
1 20S G0 TO. 20s IF NO ERROR 
15046 NOP eT ‘Serie 
1 i ERROR ERROR # THED” BY TSTPRP SUBROUTINE 
15052 000137 JMP 350$ TO 350$ IF ERROR WAS FOUND 
015056 
0150S 012737 0014432 HOV 80, RMDCO ; CYL INDE haa ‘ 
Ce i a 
< +> »+]> 
GiEIoe Oir37 atic MOV senTie. ;16 BIT FORMA 
15114 O1 1376 MOV SHH! GO Pncs10 ‘WRITE HEADER Tono DATA COMMAND 


; VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 





: 
a 


$ 
E 


q 


sata 44 


8 


FE SOR LBS 


Oh be ee Se 


S555 555 55S 
WONDW-£W) MO 
OO0000000 CoO OO0O00O0oO 
INT sid) 


Be es me Be 


g meee keceg 


G paeceee feces 9 


pe b= Pe bs PP 


ee ee oe on Saad 


PARARADRRRSE EP 2222 Soe RRR SRC RSS OTR 


TEST, PART 3. MACY11 30( 
4:18 


— 
4 
— 
oe 
ee 


046) 29-JUL-77 17:39 
TE, WRITE CHECK ONES W/ LICE ERROR SEQ 0102 


040174 JSR PC, BADSCT ;CALL BAD SECTOR MODULE 
066704 PRE , SCTMSG Jas fl pris Seb Pom message — 
ERROR oO irep BY BADSCT SUBROUTINE 
016230 = IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
070016 001174 “MOV SONES, STMPO STATING RODRESS OF PATTERN 
teats "ey BA: G0 BpEPER FOR FORMAT 
LOAD PUT REGISTER INDEX TABLE FOR FORMAT asrera ERATIION 
901533 MOV NY. Re ENTRY POSITION 
MOVB Beane (Re + 
000006 MOVB SRMDA, (R2)+ 
MOVB eRMBA. (RE) + 
a ie 
OSE eye SRMOF’ (RB) 
000000 MOVB  SRMCSI, (R2)+ 
000200 MOVB ‘#200, (Re) ; TERMINATE TABLE 


30S: 
;FORMAT THE DRIVE 


043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 4o$ -GO TO 40$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR ERROR & DEFINED BY PUT SUBROUTINE 
016230 a IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
042712 ISR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO COMPLETE 
043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
042776 = a Be ces G0 READ REG REGISTERS WITH GET 
nn Go'19 "so8 IF 1PURO ERROR 
NOP RETURN here 
ERROR i BEROR '® DEFINED BY GET. SUBROUTINE 
016230 es IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
;VERIFY NO ERRORS DURING FORMAT 
056276 ISR PC. DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 60$ -GO TO 60$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR *E # DEFINED BY DTASTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE E CKS 
016230 aaa JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 


;MOVE LOOP ROOnESS> TO NEXT OPERATION 
015324 O01l2e MOV , SLPADR 
0153e4 001124 MOV #708" SLPERR 
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DZRMEA - RMO3 FUNCTIONAL TEST, PART 3. MACY11 30(1046) 29-JUL-77 17:39 PAGE 101 SEQ 0103 
DZRMEA.P11  29-JUL-77 14:18 Til WRITE, WRITE CHECK ONES W/ WCE ERROR : 
4961 015322 000410 BR 80S ;SKIP TO WRITE OPERATION 
; Fen re ee Bee 
L00P WRITE,WRITE CHECK DATA 
015324 70S: 
4968 
4370 737 037260 ee Be DEVICE FOR TEST 
dgo7 pies) pet 30 . WORD ea 3y ; TASK DESCRIPTOR 
1 BR 80S GO T F NO ERROR 
1 NOP ; RETURN 
1 i ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
sare o1 000137 016230 tie IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
4378 015344 120S: 
438) ;WRITE DATA TO THE DRIVE 
015344 012737 MOV #<*C2S6.41>, RMWCO ;CHANGE WORD COUNT 
1 1 MOV #BUF ONE +4 RMBAO ; CHANGE MEMORY ADDRESS 
1 1 MOV BHD: 60 RMCS1O ‘WRITE DATA COMMAND 
1 1 MOV #PUTINK, Re ‘LOAD PUT REGISTER INDEX TABLE 
1 ll MOVB —- SRMDA, (R2)+ 
tee lige mY Meese 
i Hee H i ht Hh 
31 1B il MOVB tance! a}, 
1 il MOVB #200, (Re)+ ; TERMINATE TABLE 
1 043246 JSR PC.PUT ;GO WRITE REGISTERS WITH PU PUT, SUBROUT INE 
usec pt eusS pps BR ee “GO TO 1 F NO ERROR 
{ :RETURN FRE TE 
154 ERROR EI # DEFINED BY ERROR IT SUBROUTINE 
1 137 016230 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
4999 015444 130S: 
;SETUP REGISTER ru FER FOR ING STATUS 
ee 015444 004737 O42712 Regs Tes 60 10 GETSTS SUBROUTINE 
S004 ;WAIT FOR WRITE ve TO COMPLETE 
S005 O1S4SO 004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
-GO READ STATUS FOR WRITE COMMAND 
Son? 015454 004737 042776 . 18R PC,GET ;GO READ REGISTERS ITH GET SUBROUTINE 
Boi BLeues | ppnead 10s pon NO ERROR 
10 01 : RETURN 
SOl1 015464 1 ERROR ERROR # DEF INED BY GET SUBROUTINE 
1 O1Se6 000137 016230 IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
if 1S4 140$: 
Sois ;CHECK FOR ERRORS DURING WRITE OPERATION 
S016 015472 004737 043772 JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
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RMO3 FUNCTIONAL TEST, PART 3 MACYI1 30(1046) 29-JUL-77 17:39 PAGE Af SEQ 0104 
1 29-JUL-77 14:18 Til WRITE, WRITE CHECK ONES W/ WCE | 
015476 OO040S BR 1S0$ GO TO 1S0$ IF NO ERROR 
1 NOP ; RETURN IF ERROR 
1 ERROR :E 8 DEFINED BY PRIERR SUBROUTINE 
1 SR PC, a(SP)+ :G0 OR MORE ERROR 
EAE 000137 016230 th IMP 350s GO TO 350$ IF ERROR WAS FOUND 
15512 004737 056276 " ‘JSR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
rl BR 160$ 60,7 i F NO ERROR 
i 1 ERROR i BERR I TASTS INE 
1 73 ISR PC, a(SP)+ *GO BACK per OF ROR Geeks " 
! 137 016230 om IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
eae 044624 oe ty PC, SECERR GO CHECK FOR SECONDARY 
pt ease Peas aR igbS ’ -GO TO 180$ IF No EereR 
15540 000240 NOP RETURN HERE IF ERROR 
ieee 494000 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
1 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
015546 000137 016230 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
1 180$: 
1S5S2 012737 OISS74 oO1122 +” Loy OO ars: 
peers SES pte oy Oot isa MOV tian8' St be ERR 
015566 012737 015600 Oo01210 MOV #19S$;SESCAPE  ;;ESCAPE TO 195$ ON ERROR 
: 3 re eee ee en ee 
: 00P WRITE CHECK DAT 
015574 190S: 
1 912709 MOV #1,R3 SR+WCE BIT POSITION 
1 107522 195$: BIC R3; BUF TWO-2 ‘CHANGE LAST WORD OF BUFFER 


PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 
ISR PC, TSTPRP PARE DEVICE FOR TEST 
fea 139 ; TASK peSCRIPTOR 
200$ -GO TO 200$ IF NO ERROR 
IF ERROR 


a 
eae 
8 
& 

“5 


Re he be ae ee 


5614 NOP : RETURN 
5616 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
bbe 000137 016230 ent IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
015624 240 
;READ DATA FROM DEVICE 
15624 012737 000051 001376 MOV SWCD! GO, RMCS10 WRITE CHECK DATA DATA COMMAND 
Ee tigres 001533 HOV PUTIN, Re ‘LOAD PUT REGISTER INDEX TABLE 
1 il erred MOVB SRNOE’ (RO) 
topes L137e8 recent nove sas (ho)s 
015656 11 000002 MOVE  SRMWC’ (Re) + 
015662 112722 000000 MOVB  #RMCSI, (R2)+ 








OZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 103 SEQ 0105 


DZRMEA.P11 29-JUL-77 14:18 T1l WRITE, WRITE CHECK ONES W/ WCE ERROR 
eb O1S666 112712 000200 MOVB © #200, (R2) 
015672 004737 043246 JSR co ;GO WRITE REGISTERS WITH PUT ay INE 
Bie» GREENS Rp RETURN ARE 'Pe“BRROn NO ERROR 
1570e 104000 ERROR ;ERROR ® DEFINED BY PUT SUBROUTINE 
i 000137 016230 osps: IMP 3S0$ ;G0 TO 350$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
015710 004737 O42712 JSR PC, GETSTS ;G0 TO GETSTS SUBROUTINE 
;WAIT FOR WRITE pee DATA OPERATION TO COMPLETE 
015714 043606 JSR PC, TIMOUT ;GO0 TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR WRITE CHECK DATA OPERATION 
042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUT INE 
BR 260$ pT F NO ERROR 


NOP 
ERROR re DEFINED BY GET SUBROUTINE 
016230 JMP 350$ 0 350$ IF ERROR WAS FOUND 


;CHECK FOR ERRORS On INe WRITE CHECK ene oral ION 


a 


nl Ge Ga 
: 
s 
aga é 
same 
a 
~ 
L 
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ooo00o0o 
bb pp ee 
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STR UR eRe Livi teh esh 





5736 
015736 043772 JSR PC. PRIERR -GO CHE FOR PRIMARY 
i 2 BR os 
1 ERROR 
1 JSR PC, 3(SP)+ GO BACK Sh MORE teROA S 
i 187¢ 016230 ae IMP 350s Oo" TO 350$ IF ERROR WAS FOUND 
i 1 040000 001336 BIT SCE ,RCS2I SHAS “WCE” DETECTED?? 
1 i 056276 ISR PC. OTASTS :G0 any? SULTS OF DATA TRANSFER 
51 1 BR 280$ 60 19 280 80S IF NO ERROR 
8 i i ae SS 
1 ERROR ‘ERROR ® DEFINED BY DTASTS SUBROUTINE 
110 O01 ISR PC, a(SP)+ i BACK FOR MORE ERROR CHECKS 
ate its 2 000137 016230 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
il te b 013737 001336 001140 — MOV RMCS21, SGDDAT EXPECTED STATUS 
114 O16014 001140 BIS WCE, SGDDAT 
11S O1 1 1336 001142 MOV RCSeI , SBDDAT ;RECEIVED STATUS 
116 Ol 1 1174 MOV R3,$ ;FAIL NG BIT POSITION 
5117 016034 012737 107522 001176 MOV #BUF TWO-2, STMP1 “FAILING ADDRESS 
118 O16042 104337 ERROR 337 “WCE NOT DETECTED 
: 1 1 BR 350$ 
1 D604 25S: 
1 16046 112737 o00022 001504 MOVB § SRMDB,GETINX ;SETUP GET INDEX TABLE 
Gis) Bieies lera? ARES Biles A? ithe” 
1 001 MOV t I ;SET THE INPUT BUFFER 
bigs 16070 OOH 32 042776 ISR PC. GET GO GET THE CONTENTS OF THE DATA BUFFER 
1 1 BR 290s GO TO 290$ IF NO ERROR 
pie? 016076 000240 NOP RETURN HERE IF ERROR 
128 016100 104000 ERROR ERROR DEFINED BY GET SUBROUTINE 
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DZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 104 SEQ 0106 
OZRMEA.P11  29-JUL-77 14:18 Til WRITE, WRITE CHECK ONES W/ WCE ERROR . 
Hey O16108 290S: 

131 016102 013737 001350 001142 MOV RMDBI , SBODAT ;RECEIVED DATA 

ci GIRO fee OTS oy ee  ceeee aon 

Sot Ise HOV RNBATSB0 EO ETVED ADDRESS 

se tae 013098 erie 11 SUB 82 21, SBOAOR SRE RRECT MEMORY ADDRESS 
a3 aig 001134 001136 chp $GDAOR, ; ADQRESSES 0K?? | 

1 161 1 ERROR 340 “WCE AT UNEXPECTED ADDRESS 
00 Hats 001140 001142 295S: BR $250aT , sa00AT sDATA OK?? im 

145 16170 1) EEROR ct UNEXPECTED WCE DATA 

144 ot 1 1 BR : 

: 16174 2%6S: 

147 016174 004737 O44624 JSR PC, SECERR GO CHECK FOR R SECONDARY ERRORS : 

HI He: Be, (S008 sacrum ithe te Peon’ 1 Eon 

i Glee ioe Bro gcsre Bt Pie Eee ge 

i OiFei6 B50 016230 ina JMP :G0 TO IF E WAS F 

1 e 

155 016214 050337 107522 BIS R3, BUF TWO-2 RESTORE DATA PATTERN 

1 ieee 006303 as R3 ‘SHIFT TO NEXT BIT 

1 iese4 etki 015600 Ane JMP 208 ext TEST FOR NEXT DATA BIT 
et 1P535 012737 001210 “MOV #0, SESCAPE ;;ESCAPE TO 0 ON ERROR 

1 016236 12737 015036 001122 MOV #10$, SLPADR ;CHANGE LOOP TO START OF TEST 

1 1 12737 015036 001124 MOV 8 

i s souauassonnnann cess Sees sees eeseeseenrter errs nnn 

i iii RESKRLLKRELRAERL KKK KKSE 

1 

1 

1 

1 

2 

1 

eI 

1 

el 

1 

eI 

1 

1 

1 

: 

1 

1 

Si 


PERKS ISSR 2 SSEVERIG-SSSVRRLOwN SSH NS 


 (00P FORMAT, WRITE, READ 
016300 10S: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
916300 0047 037260 JSR PC. TSTPRP -PREPARE DEVICE FOR TEST 
1 41 .WORD 054130 ;TASK DESCRIPTOR 
916306 20S GO TO 208 IF NO ERROR © 
16310 ;RETURN HERE IF E 
016312 104000 ERROR “ERROR # DEFINED BY TSTPRP SUBROUTINE 


wr 
J 
sr “2 


Q00000 
RRR | BE 


pee pe ee te pe 


aa eensse 


ooeeeeeee  Peeeeeocee 
Bassa’ 850229 


be Ps be pee Pe pe 


MUM 
SEENON ONS Aa NOON SNe Sorensen aoe Ne eae AREER RSTO ai 


SESE 2 RR EE LH a0 oe 








000137 017272 oo IMP 3S0$ GO TO 350$ IF ERROR WAS FOUND 
;LOAD ra ag ees GENERATE DATA ghee 
= 0. SECTOR = 0 
MOV SEO. ADORESS 
MOV Sentero rruco’ o> 
MOV $16, BIT ORMAT 
MOV * RMCS1O HEADER AND DATA COMMAND 
;VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
004737 040174 JSR PC, BAOSCT ;CALL BAD SECTOR MODULE 
rt 066704 Poe a nse jis f oad Set Lok mecnce — 
ASE oivere Sos EO 8 HOPRGES WP aod ae Plo 
U12737 070060 001174 ; Ov ZEROS, STMPO ; STARTING ROORESS OF PATTERN 
ee reat JSR Pd? Se NB se oP ae BUFFER FOR FORMAT 
;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
012708 991533 MOV Sut the Re Re = ENTRY POSITION 
il MOVB SRMDC, (R2)+ 
112722 ; MOVB SRMDA, (Re)+ 
il 000K HOVE SRMBA; (Ro) + 
il SRMWC, (RO)+ 
il MOVE  SRMOF. (RO)+ 
il MOVB  sRMCSI. (R2)+ 
iis 5 ~ MOVB 8200, (Re) ; TERMINATE TABLE 
;FORMAT THE DRIVE 
004737 043246 J PC.PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
ppoesa a Poa " “ERROR hams 
NOP ; RETURN bene F 
104000 ERROR & DEF INED BY PUT SUBROUTINE 
000137 017272 si IMP 350S GO TO 350$ IF ERROR WAS FOUND 
;SETUP GET REGISTER INDEX TABLE A: READING STATUS 
004737 042712 JSR PC, GETS TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO i 
004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
GO READ STATUS FOR FORMAT OPERATION 
004737 042776 JSR PC,GET ;GO READ REGISTERS WITH T TINE 
000404 BR so$ joo os If NO ERROR 
ERROR ERROR # DEF 
bbors? 017272 iP 350s e when fr By $F SABROUII 


SOs: 


CO9 


SEQ 0108 


s £8 6 “3 : 3 
Bs is a 7 i : s : 
a ee 2 f£oTE . Bs ioe 
Se ee er = 
at : Bes o t e go°y w Seog 
ceed GE eeee eg Geto 
ag + Bane % F so 6CCOE Ces 
Eats | oe if 
SY 
eo § 2 as eee a 
oe a oo Sos ae | SHEP Ss a 
2: 3 : : : 
= ofatlnn pap i Sneapee epeSSEEEEE aghtt 
ee oath otek onal : 
. gon55 : 
& ss888 g 
12 eee ie 
; 3 8 5 oS 
: an ae 
é. Gia 69 i 2 ANouoos SeShss 





fe SERS RAS ORE NRA SESS eam een RoR Re 


SES AEP Ae LIA SHE so 019 


;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
042712 JSR PC, GETSTS ;G0 TO GETSTS SUBROUTINE 


;WAIT FOR MR 
043606 : = SenoUT. re ss TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR WRITE COMMAND 
042776 ey 1 ee ;G0 READ su eit sr pe 


ecru ene Ic Eamon BY GET SUBROUTINE 
017272 1408 JMP 3S0$ ;G0 TO 350$ IF ERROR WAS FOUND 





CHECK FOR ERRORS DURING WRITE OPERATION 
6762 043772 JSR PC, PRIERR ;G0 CHECK F FOR PRIMARY ERRORS 
p66 BR ists Go TO. isos F NO ERROR 
e eh ets BY PRIERR INE 
eG FEROR bc a(SP)4 Bete 
017272 tt IMP 350s ;60 ‘ron IF ERROR WAS FOUND 
: ;60 gt OF DATA TRANSFER 
BR F NO ERROR 
7018 ERROR ERROR a fere Ir BY DTASTS SUBROUTINE 
14 ISR PC. a(SP)+ :G0 ERROR CHE 
017272 350$ G0 TO IF ERROR WAS FOUND 
160$: 
170$: 
o44624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
180$ TO 180$ IF NO ERROR 


004737 
004737 
Ee 
004737 
a 
056276 JSR PC, OTASTS 

BE a 
000137 
boobs 

0S 
000240 
104000 
004736 
000137 
012737 
012737 
000410 


7bee 
Pee 
z 
702 
7050 
70S6 


; 


;SKIP TO NEXT OPERATION 
2 Aa apna Reema one ane cepe irc ieeneapera cence: 


Res 
a 
a 
Be 
ae 
a 1 
St 
+ 
a 
25 6 
01 
a 
5 
3 


‘Loop 
017060 190$: 
Pare VES FOR_READ OPERATION 


534 
5348 017060 737 037260 PC, TSTPRP “PREPARE DEVICE FOR TEST 
pata 917064 41 954130 TASK DESCRIPTOR 
aR -GO TO 200$ IF NO ERROR 
5351 017070 Oo00e40 NOP RETURN HERE IF 
S3S2 017072 104000 ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
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DZRMEA - RMOZ TIONAL TEST, PART 3 MACYI1 30(1046) JUL-77 17: 
DZRMEA.P11 JUL-77 14:18” Tle BRITE” write CHECK miciiPue eee —_ 
017074 000137 017272 IMP 3S0$ ;GO TO 350$ IF ERROR WAS FOUND 
017100 200: 
017100 240S: 
READ DATA FROM DEVICE 
3 017100 012737 000051 001376 MOV SWCD! GO, RMCS10 ;READ DATA COMMAND 
17108 1 MOV SPUTINX: Re LOAD PUT REGISTER INDEX TABLE 
17ll2 il MOVE SRMDA, (R2)+ 
bo 6017116 Il MOVE = SRMOF, (Ro) + 2 
53 Ol7l22 11 MOVB eRMC, (Re)+ 
M4 O171e5 11 MOVB * (Ro)+ 
Bet tins it me wees aes 
536 71a i578 NOV $200, (Re) 
59 017146 004737 ISR PC.PUT -GO WRITE REGISTERS WITH PUT SUBROUTINE 
e3e5 Bieies Soe, BR ass’ “GO TO 250$ IF NO ERROR 
2375 Bi51ee Pouacs ERR ee Ee eer p 
17156 1 ‘ERROR ® DEFINED BY PUT SUBROUTINE 
017160 000137 017272 IMP 350$ G0 TO 350S IF ERROR WAS FOUND 
17164 250S: 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
5377 017164 004737 o4e712 ISR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR READ OPERATION TO COMPLETE 
e3e0 017170 004737 043606 JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
eee oi7174 042776 ee READ Oe eS OR eA OO READ REGISTERS WITH GET INE 
eo ot ppd “" -GO 1 260$ TE ONO ERROR 
17202 000240 NOP ;RETURN HERE IF ERROR 
1 104000 ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
1 000137 017272 IMP 350$ G0 TO IF ERROR WAS FOUND 
1721 260S: 
CHECK FOR ERRORS DURING READ OPERATION 
17212 004737 043772 ISR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
1721 BR 270 -GO TO 270$ IF NO ERROR 
17220 000240 NOP ;RETURN HERE IF ERROR 
eal 1 494000 ERROR ‘ERROR ® DEFINED BY PRIERR SUBROUTINE 
1 JSR PC, a(SP)+ : MORE CK 
53% ot 000137 017272 cia IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
233g Olfe%e 004737 056276 " ‘JSR PC. DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
5399 017236 000405 BR 280s -GO TO 280S IF NO ERROR 
1 NOP RETURN HERE IF ERROR 
1 ERROR ‘ERROR ® DEFINED BY DTASTS SUBROUTINE 
1 736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHECKS 
5403 Oi 7246 000137 017272 JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
Bape Ol7ese ane 
Bue? BL 7e8 singe 
1 004737 oO44624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
5408 017256 O0040S BR 3005 ;GO TO 300$ IF NO ERROR 





FOS 


DZRMEA - RMO3 FUNCTIONAL | TEST, PART 3. MACYI1 30(1046) 29-JUL-77 17:39 PAGE 109 SEQ O111 
OZRMEA.P11  29-JUL-77 14:18° Tle WRITE, WRITE CHECK MULT SECTORS : 
S409 017260 O00240 NOP ;RETURN HERE IF ERROR 
S410 017262 104000 ERROR -ERROR & DEFINED. BY SECERR SUBROUTINE 
11 Ol Oo? 36 JSR PC, a(SP)+ GO BACK Ai CHECKS 
le Ol 137 017272 JMP 350$ TO IF ERROR WAS FOUND 
i 01 300$: 
15 017272 : 
1 5p RRRRERERE GEESE EE EEE EEE EEE EERE EEE EERE E EEE EE EEE EES 
17 TEST 13 WRITE, READ W/ IMPLIED SEEK 
18 ; jgneeetenenennnnesestocsssesnessadsasenssssnnssnnnnsnananasasses 


7272 
is tee poe sence, AD. ; sINITIALIZE STACK POINTER 
ae a Reraeie,, fey Saevceeei TeameD 


; ee aes re Ae nes 
COOP FORMAT , WRITE, READ 


= 


. THE DEVICE FOR FORMAT OPERATION 
004737 037260 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
0S4 WORD 054130 


; TASK DESCRIPTOR 
:GO TO 20S IF NO ERROR 


Bade Berrien: gy T BY TSTPRP ey 


ERP SRO DOT RSS Lead SAFER ARR TUR ORSENRRIRER 
saaaees 
a 
: 
; 
Ee 
eee er 
A 
a & 


000137 020614 3S0$ IF ERROR WAS F 
TE DATA BUFFER 
017340 012737 001 ;CYLINDER = 0 
17346 012737 000000 001404 #0; RMDAO hey = 0. SECTOR = 0 
1 1 1 901402 SUF ONE . RMBAO 
1 1 i 001 8<#C< 24256. +1), RMWCO 
1 127 1 001430 8FMT16, RMOFO Hor ie ert FORMAT 
017376 012737 000063 001376 MOV WH! GO, RMCS10 TE HEADER AND DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR ale 
017404 004737 040174 ISR Pc ,BADSCT ;CALL BAD SECTOR MODULE 
EAH ToMaT 066704 POPE , SCTMSG ; TYPE ani Set to8 he se ate _— 

17416 104000 ERROR ‘ERROR # DEFINED BY BADSCT SUBROUTINE 
aif 000137 020614 ai IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
{ 012737 070016 001174 "MOV #ONES, STMPO ;STARTING ADDRESS OF PATTERN 

017432 012737 000001 001176 MOV #1, $TMP1 ;RANGE OF PATT 
017440 004737 042100 ISR PC; GENBUF GO GENERATE BUFFER FOR FORMAT 
;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
gy 01 001593 MOV SPUTINX, Re ;R2 = BYTE ENTRY POSITION 
17450 il MOVB #RMDC, (R2)+ 
S464 017454 112722 O00006 MOVB SRNDA’ (RO)s 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 110 SEQ O112 
T13 WRITE, REAO W/ IMPLIED SEEK 

MOVB  § SRMBA, (R2)+ 

MOVE SRMWC, (Ro)+ 

MOVB (Re)+ 

St Ms ONL 
— , (Re) ; TERMINATE TABLE 
; FORMAT THe ORIVE 

J PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 

BR 4o$ -GO TO 40S IF NO ERROR 

NOP ; RETURN ERE IF ERROR 

ERROR “ERROR ® DEFINED BY PUT SUBROUTINE 
“te IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 

JSR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO COMPLETE 

JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
_ mR Be cer *G0 READ "REGISTERS WITH 

sit ce ea 

NOP -RETURN HERE 

ERROR “ERROR & aan: BY G T SUBROUTINE 

IMP 350$ 0 350$ IF ERROR WAS FOUND 
; VERIFY NO ERRORS DURING FORMAT 

ISR PC. DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 

60$ -GO TO 60$ IF NO ERROR 


ERROR OR # DEFINED BY OT STS SUBROUTINE 
JSR PC, a(SP)+ FOR 
JMP 350$ ree TO OF ERROR BAS FOUND 
; MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70S, 
MOV 360$ 
MOV 86S$,SESCAPE § ;;ESCAPE TO 65$ ON ERROR 
BR g0$ ;SKIP TO WRITE OPERATION 
65S: MOV 360S , RMDCO “RESTORE CYLINDER 
$3 sugeegresueceszcesiconsesnnesncesuntsubonieeatesateanirannssa 


70S: 


;PREPARE DEVICE FOR WRITE OPERATION 

ISR “PREPARE DEVICE FOR TEST 
054130 ;TASK DESCRIPTOR 

80S ;GO TO 80S IF NO ERROR 





HOS 


SEQ 0113 


;WAIT FOR WRITE COMMAND TO COMPLETE 
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i tal le” re saz AP 1l2 SEQ 0114 


JSR PC, TIMOUT ;G0 TO TIMOUT SUBROUTINE 


;GO READ STATUS F Rive EO READ 
e Pesce peru fee te 


IF ERROR 
ERROR “ERROR ® DEFINED BY GET SUBROUTINE 
Ate IMP 3508 GO TO 3S0$ IF ERROR WAS FOUND 
;CHECK FOR ERRORS DURING WRITE OPERATION 
ISR PC. PRIERR G0 CHECK FOR PRIMARY ERRORS 
BR 150s -GO TO 1S0$ IF NO ERROR 
NOP ;RETURN HERE IF 
ERROR ‘ERROR ® DEFINED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
ma JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
JSR PC. DTASTS ;GO VERIFY ro tabs 1 OF DATA TRANSFER 
BR 160$ igo IF NO 
INED BY DTASTS TINE 
FRROR pc. acSP)4 Boge peevten 67 or Greeke 
IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
160$: 
170$: 
JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 180 GO T cf IF NO ERROR 
NOP RETURN HERE 
ERROR ‘ERROR # BEE INED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
ae IMP 350$ GO TO 350$ IF ERROR WAS FOUND 


$190, 
MOV #1908, SLPERR 
MOV RMDCO; 
MOV #185$,SESCAPE ;;ESCAPE TO 185$ ON ERROR 
BR 200$ ;SKIP TO NEXT OPERATION 
1985S: MOV 360$ , RMDCO “RESTORE CYLINDER 
s Oe gt ee ee ee ee 
190$: 
PREPARE DEVICE FOR READ OPERATION 
ISR PC. TST -PREPARE DEVICE FOR TEST 
.WORD 054130 ;TASK DESCRIPTOR 
BR 200$ :GO TO 200$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR ERROR # DEF INED BY TSTPRP SUBROUTINE 
IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 


200S: 








DZRMEA MACY11 30( 1046) “i oF 23. PAGE 113 
DZRMEA. T13 WRITE, REaG PLT 
ops MOV ‘ ;SAVE CYLI 
5635 MOV #822.  RMDCO j SEEK TO LAST CYLINDER 
3638 MOV #SEEK!GO, RMCS10 WRITE COMMAND 
JSR PUT :GO WRITE REGISTERS WITH SUBROUT INE 
Be BR Os ee F NO ERROR 
NOP ;RETURN f a 
eu ae re  3sos ERROR eT TO OSS TF ERROR WAS FOUND 
S64. 
S644 ;SETUP REGISTER INPUT BUFFER FOR READING SI ATUS 
5645 ISR PC, GETSTS ;G0-TO GETSTS SUBROUTINE 
eeae JSR Pe’ceT -GO READ’ REGIS RS WITH GET SUBROUTINE 
5648 BR 2208 60,10. 220s I IF NO ERROR 
eeea ERROR iB RROR J fene 
see vos, TP 3808 DEFINED Br By eT, Uns FOUND 
2p83 JSR PC, SEKSTS ;G0 VERIFY, SULT OF SEEK OPERATION 
BR 2305 IF NO ERROR 
Bose ERROR Rac ees BY SEKSTS_ SUBROUTINE 
5b ie ec alhes 3G0 TO SOR As FOUND 
See 230$: MOV RMDCO STORE Ea Torn 
MOV #0, SESCAPE ; s ESCAPE’ 5 0 ON ERROR 
5661 
240S: 
READ DATA FROM DEVICE 
MOV #RD!GO, RMCS10 ;READ bara A COMMAND 
S666 MOV #BUF TWO+4. RMBAO ;LOAD STARTING BUFFER ADDRESS 
MOV ePUTINK Re “LOAD PUT REGISTER INDEX TABLE 
MOVB , (R2)+ 
S66 MOVB §SRMOF, (Re)+ 
70 MOVB § SRMDC, (R2)+ 
? MOVE #RMBA, (Re) + 
MCVB = BRMWC| (RO) + 
33 MOVA = #RNCSI, (R2)+ 
ar MOVB #200, (Re) 
2578 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 250s -GO TO 250$ IF NO ERROR 
2678 NOP -RETURN HERE IF ERROR 
34 ERROR ERROR & DEF INED BY PUT SUBROUTINE 
2p80 IMP 3595 ;GO TO 350$ IF ERROR WAS FOUND 
1 250S: 
S682 
5683 
;WAIT FOR READ OPERATION TO COMPLETE 
ISR PC, TIMOUT 3G0 TO TIMOUT SUBROUTINE 
GO READ STATUS FOR READ OPERATION 
5688 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 


SEQ 0115 
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DZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 114 SEQ O116 
OZRMEA.P11  29-JUL-77 14:18 T13 WRITE, READ W/ IMPLIED SEEK 
20S0I BR 260S -GO TO 260$ IF NO ERROR 
2p83 c eel NOP ;RETURN HERE IF ERROR , 
abe rane Agen 020614 Fee 3S0$ _ 25 10 450s sia ERROR las FOUND 
333 020512 260: 
CHECK F READ OPERATION 
ae 020512 004737 043772 OB ERRORS OBR DER ;GO bbc FOR PRIMARY ERRORS 
5697 020516 BR 270s , TO, F NO ERROR 
Bees Ashes HRP OR iBEROR INED BY PRIERR SUBROUTINE 
5700 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHECK 
a JMP 350 ;G0 TO 350$ IF ERROR WAS FOUND 
JSR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 280$ -GO TO 2B0S IF NO ERROR 
NOP RETURN HERE IF ERROR 
ERROR ‘ERROR # DEFINED BY DTASTS SUBROUTINE 
736 JSR PC. a(SP)+ ‘GO BACK FOR MORE ERROR CHECKS 
137 020614 JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
280S: 
10 
eri 290S: 
1 004737 o44624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
13 SO040s BR 300$ GO 19 300$ IF NO ERROR 
14 NOP ;RETURN AERE IF ERROR 
1S 104000 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
b G04? 36 ISR PC. a(SP)+ GO BACK FOR CHECKS 
i 137 020614 IMP 350 G0 TO IF ERROR WAS FOUND 
g 004737 o042344 _— JSR PC, CMPBUF GO COMPARE WRITE, READ DATA BUF 
106524 ” BUF ONE+4 ;STARTING ADDRESS OF WRITE BUFFER 
107530 “WORD TWO+4 : STARTING ADDDRESS R 
04 BR 31 °GO TO 310$ IF NO 
000240 NOP ;RETURN HERE IF ERROR 
104000 ERROR : # DEFINED BY CMPBUF SUBROUTINE 
000137 020614 mii IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
208 350S: 
590000 | ET te 
1 020620 70S: 
s3 SEEGERS EEG REGGAE EGER RARE EERE ERA RRRE REA RR AKERS 
es TEST 14 WRITE, WRITE CHECK W/ HEAD SWITCHING 
3s } sssselsaussonscesesseesseseudsnssssenncnssnsensseuesanneenenns 
Je 000004 ; CALL 
000240 NOP START OF TEST 
012706 001100 MOV aSTACK, SP INITIALIZE STACK POINTER 
013700 001276 MOV SBASE , RO * RO=UNIBUS S 
013701 001446 MOV TSTQUE, RI *(R1) = DEVICE BEING TESTED 
eatt 020640 012737 000014 001226 MOV #14, STESTN SET TEST NUMBER IN APT MAIL BOX 
ans 3 RELELERELSKESEESESEEG REESE SESE RE RARER ALLA AARARRARRRRERRE ERR ERELE 
LOOP #1 FORMAT , WRITE, READ 





o> EPS. PRT 2 HRT i lh se 0117 


PEE EEREE EE RERE SEMEN EP EE TEL 


S fugiod one 


a 
0 


a pb ee 


B2zoen RORERe 


¥ 


={slolale 


RRR. 


bm bh oe be 


R 


PERREEPRRERESEC CC. cr eS RRERRRSR 


& 
— 
R 
LL 


10S: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
737 037260 ISR PC. TS ; DEVICE FOR TEST 
1 .WORD 059130 ;TASK DESCRIPT 
BR 20S -GO TO 20$ IF NO ERROR 
ode40 NOP RETURN HERE IF ERROR 
1 ERROR ERROR # DEFINED BY TSTPRP SUBROUTINE 
000137 021640 ot IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
LOAD PARAMETERS po GENERATE DATA BUFFER 
piers, DO0000 001432 MOV #0, RMDCO ;CYLINDER = 
bis737 Ioess0 ODLMOe mo ere By SEN alia 
pise3e Veer 001400 MOV BriccaRSSE Te) 41>, RMWcd WORD COUNT 
012737 010000 001430 MOV sFMTIG, 16 BIT FORMAT 
012737 001376 MO #WH! GO, esi 0 ‘WRITE HEADER AND DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
004737 040174 JSR PC, BADSCT CALL BAD SECTOR MODULE 
000405 BR 2s$ -GO TO oss IE No NO ERROR 
104401 066704 TYPE , SCTMSG Or, Ba EF IND BY BROS SueROUTINE. 
137 021640 si IMP 350$ DEF In ORY PROP EROR CLS 
012737 070016 001174 ; HOV HONES, STHPO aieree RODRESS OF PATTERN 
Bbas % 21 JSR Pa: ENUF by BUFFER FOR FORMAT 
tzrag ooisag «1? PULSER, REN JFLE FOR FORT SPER Hay PosITION 
O17 05 aie MOVB , (R2)+ 
112722 000006 MOVB  (R2)+ 
ie nae 
i SONOE (RSDs 
11 000000 MOVB @RMCSI, (Re)+ 
112712 000200 a MOVB «#200, (Re) TERMINATE TABLE 
FORMAT THE DRIVE 
004737 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
000404 40$ -GO TO 40S IF NO ERROR 
o0e46 RETURN HERE IF ERROR 
ERROR ERROR # DEFINED BY PUT SUBROUTINE 
000137 021640 sn IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
:SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
004737 O42712 ISR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO COMPLETE 
004737 043606 ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
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2B0} ;GO READ STATUS FOR FORMAT OPERATION 
5803 021060 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
De te so$ 19. NO ERROR 
Ue ; RETURN 
021 104000 ERROR “ERROR & DEFINED BY GET SUBROUTINE 
be107e 000137 021640 IMP 3S0$ ;G0 TO 3S50$ IF ERROR WAS FOUND 
1 SOs: 
agi? 1 737 056276 roses MO ERRORS eS Oe GO VERIFY RESULTS OF DATA TRANSFER 
Sale ante peaaas BR 60$ r “aa G0 "70_608 IF NO 
eau G81 105 rane ERROR : BnOR oFERE TE ERROR TASTS SUBROUTINE 
1§ 021110 004736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHECKS 
6816 O211l2 000137 O21640 IMP 350 ;GO TO 350$ IF ERROR WAS FOUND 
5817 021116 


;MOVE LOOP MOORES HS, SL ext OPERATION 


1116 O01 1176 001122 MOV 
951148 Bise35 5112p 001124 MOV #70S; SLPERR 
ll 1 1 1400 evanieag* ont? i. >41>,RMWCO  ;C WORD COUNT 
ie i | a“ 4 
BS t 135 15533 177Ron rise MOV . : BUS ADDRESS 
1148 01 001174 MOV OTe TOPO ‘STARTING ADDRESS 
1154 O1 1 001176 MOV #1, STM 1 + RANGE 
1162 012737 000060 001376 MOV si RMCS10 “WRITE DATA 
021170 004737 O42100 JSR Pc, GE ;GENERATE BUFFER 
021174 000410 go$ "SKIP TO WRITE OPERATION 


gr penser oo ar penance sepa ney serene tenon: 


: 00P WRITE, READ 
70S: 


;PREPARE DEVICE FOR WRITE OPERATION 
JSR “PREPARE DEVICE FOR TEST 
ene Oo4130 -WORD 054130 ;TASK DESCRIPTOR 
BR 80S -GO TO 80S IF NO ERROR 
oge46 NOP RETURN HERE IF ERROR 
10 1 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
le 000137 021640 a IMP 350$ GO TO 350% IF ERROR WAS FOUND 
021216 1208: 
;WRITE DATA TO THE 
990061 001376 MOV #WWD!GO, RMCS10 WRITE DATA COMMAND 
1 MOV SPUTINK, Re ‘LOAD PUT REGISTER INDEX TABLE 
000006 MOVB = SRMDA, (R2)+ 
000034 MOVB @RMDC, (Ro)+ 
000032 MOVB BRMOF, (RO)+ 
000004 SRMBA, (R2)+ 
#RMWC) (RO) + 
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hove seOO TREN ; TERMINATE TABLE 
bar PUT ;GO WRITE REGISTERS Ore pe 1PORS OTA 
NOP 


RETURN HERE IF 
ERROR TERROR ® 0 SEFINED BY OR PUT SUBROUT INE 
sae IMP 3S0$ GO TO 3S0$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
JSR PC,GETSTS GO TO GETSTS SUBROUTINE 
-WAIT FOR WRITE TO COMPLE 
: JSR /TI et TO TIMOUT SUBROUTINE 


;G0 READ STATUS FOR WRITE 


BR Ay alee beway 5 iss FeRUT IN 
CEO BA et gore, 


140$: 
CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC. PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
iss TO 1 F NO ERROR 
NOP ; RETURN 
ERROR ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC. a(SP)+ GO BACK FOR MORE CHECKS 
vial IMP 350$ G0 TO IF ERROR WAS FOUND 
JSR PC, DTASTS ;GO VERIFY OF DATA TRANSFER 
BR 160$ -GO ot b0s IF NO ERROR 
ERROR ERROR eet ee BY OTASTS TINE 
aR 3(SP)4 ERRORCK POR-RORE Greeke 
IMP 2508 G0 TO IF ERROR WAS FOUND 
160: 
170$: 
JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 1805 -GO.T0 180$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
is IMP 350$ GO TO 350$ IF ERROR WAS FOUND 


;CHANGE LOOP ADDRESSES 
ia 01s. eo 


BR ;SKIP TO NEXT OPERATION 
HHIHHHHHMHHMHHHHHHHHHHHHHEEHHHHHHHHIHII IEEE EEE 


‘(OOP #3 


SEQ 0119 


SEQ 0120 


T14 
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~ 
‘a. 


INED BY TSTPRP SUBROUTINE 
;G0 TO 350$ IF ERROR WAS FOUND 


19.6008 JF NO ERROR 


;READ DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


TH PUT 
F 
NED BY 
0 
;G0 TO GETSTS SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 
GET 
: 260s I 
ERROR 
; BY 
; 350$ I 
IMARY 
270$ I 
ERROR 
NED BY 
MORE 
350$ 
TS 


. DEVICE FOR TEST 
TASK ned SETOn - 
en as 
:GO WRITE REGISTERS 
RETURN 
ERROR ® 
READING STATUS 


s "te is 2 eb |g bis 
=: : & = & 
e = Byttstss ; - 5 
gr See « a Be 8. 28 8 
cid — aa a : ee : : ak 
SolgbEk © sERECEESEE BubE® GR =. Babee sBabhO® Oe 
chee ghadoak 
: 
8 
2 e % : 22 
Se 2 Bee fb pbb 2 § 83 
BREPES ISIN REERR : 88 
baekes «© Mawsws Geteg «G OE Geted  Getecs Es 
S Soeerss  FERSSERRG ORANGE 8 Ree RAGES SSS 
& SSSSsss$ S$ SSSSSSSS SASSY S 8 SHS¥S¥ SSSXSSSs8 


Banas iaA a anna aN CASAS ASS TA a Caan 


pt BO fee he Pm be 


RRRRRBR RRRRRRR 
TTS «8=60ERENCR RASA 
Bags SSeeee  SaRggE 
Baley SNS ayes 


ee 


5 RGESEE SEEDED SSSR TINE IONIIS 


Cn ee oe Se od 


i Raft Vi Sif tcalic 


i BETOR a BEFINED BY OTASTS SUBROUT INE 


y 
ISR PC, a(SP)+ G0 BACK FOR CHECKS 
IMP 350s G0 TO IF ERROR WAS FOUND 
2908: 
JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
BR 3005 GO TO 0 3005 IF NO ERROR 
; RETURN | 
ERROR ERROR 8 1MeD BY SUBROUT INE 
SR PC, a(SP)+ GO BACK CHECKS 
a IMP 350$ ERROR WAS FOUND 


ss {EEE HH HHH HEHEHE HHH 
:RTEST 15 WRITE, WRITE CHECK W/ MID-TRANSFER SEEK 


+atis: 





SLES 


SCOPE 

nov aSTACK 4s pean “STACK. POINTER 

NOV TTGe sth, 7 CRI) Vice oer APT MAIL BOX 
$ ee 
Z00P FORMAT, WRITE, READ 
10S: 


;PREPARE THE DEVICE FOR FORMAT OPERATION 


ISR STPRP -PREPARE DEVICE FOR TEST 

: 054130 ;TASK DESCRIPTOR 

BR 20S 89, TO. 20s IF IF NO ERROR 

RROR ERROR & 
«en We Poe 
LORY PARAMETERS AND GENERATE DATA BUFFER 

MOV #0, RMDCO CYLINDER, : 

MOV #2037 , RMDAO j TRACK = S cTOR = 31 

MOV #BUF ONE , RMBRO ADDRESS 

MOV 8< #0286256. 42>>41>, Rmwcde ;WORD COUNT 

MOV sFMTI6, 16 BIT FORMAT 

MOV WH! GO; RMCS1O ‘WRITE HEADER AND DATA COMMAND 
;VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 

ISR PC, BADSCT ;CALL BAD SECTOR 

BR 25 -GO TO 25$ IF NO ERROR 

TYPE  ,SCTMSG ;TYPE BAD SECTOR MESSAGE 

ERROR ERROR # DEFINED BY BADSCT SUBROUTINE 

JMP 350$ GO TO 350$ IF ERROR WAS FOUND 


ES SRESSE ESSER ERE PERE TUR RER ROR EESpUOEREERDREREREnEEEE EE i 
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29-JUL-77 1 WRITE, WRITE CHECK W/ MID-TRANSFER 
25S: 
012737 070060 001174 MOV ZEROS 05, STHPO ; STARTING BOORE ORESS OF PATTERN 
eae "eR Pa? Se NBUF BO GENCRATE BUFFER FOR FORMAT 
some” ie ;LOAD PUT REGISTER NOEX pret FOR FORMAT aPERATIION A al 
~~ e = 
Beenie 915705 Bocas Move sRMDe CRCD+ va 
N22 il27e2 000006 MOVE  SRMDA, (Ro)+ 
ll 000004 MOVB § SRNBA, (Ro)+ 
il MOVB  SRMWNC, (Ro)+ 
il n0003¢ MOVB  SRMOF. (Ro)+ 
ie7ee 000000 MOVB  - #RMCSI, (R2)+ 
lle7i2 000200 — MOVB 8200, (Re) TERMINATE TABLE 
FORMAT THE DRIVE 
004737 043246 PC.PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
alt 40$ -GO TO 40S IF NO ERROR 
;RETURN HERE IF ERROR 
Oee0be 104000 ERROR “ERROR ® DEFINED BY PUT SUBROUTINE 
000137 022660 JMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 
022070 40S: 
;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
022070 004737 042712 ISR PC,GETSTS ;GO TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO COMPLETE 
022074 004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR FORMAT OPERATION 
022100 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET INE 
bee 104 doo404 co$ -GO TO SOS IF NO ERROR 
Nee 1 NOP ;RETURN HERS IF ERROR 
022110 104000 ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
Geel le 000137 022660 ae IMP 350$ :GO TO 3S0$ IF ERROR WAS FOUND 
02211 737 056276 pened RO ERRORS Ot Ont GO VERIFY RESULTS OF DATA TRANSFER 
02 128 he BR 60$ ? tonto 60$ IF NO 
022124 000240 NOP ;RETURN HERE IF ERROR 
22125 1 ERROR *ERROR # DEFINED BY DTASTS SUBROUTINE 
06130 0047 36 ISR Pc ,.g(SP)+ GO BACK FOR MORE ERROR CHECKS 
msl 137 022660 JMP :GO TO 350$ IF ERROR WAS FOUND 
022 136 60S: 
-MOVE LOOP ADDRESSES TO NEXT OPERATION 
022136 012737 022216 OO0ll22 ’ MOV 8705, 
22144 012737 Oeeel6 001124 MOV #70$, SLPERR 
REGENERATE BUFFER 
02?1 12737 000060 001376 MOV RNCS10O ;WRITE DATA 
022 | 1 177000 001 MOV #<90<2%256.>+1>,RMWCO  ;CHANGE WORD COUNT 
ry 1 106520 001402 MOV RMBAO : BUS s 
022174 012737 070016 001174 MOV #ONES, STMPO “PATTERN ADDRESS 
Neeen2e Ol 000001 001176 MOV #1, STAP1 *PATTERN RANGE 


— 


KREGRHESSSVRRPORLS aa Lonzow-oSBIKRIBRES 


ji SES AEE RT A so 029 


022210 004737 042100 ISR PC, GENBUF 

022214 OO0410 BR g0$ ;SKIP TO WRITE OPERATION 
g Be ee tte MER icc ieniens enaeceaet ane 
L00P WRITE, READ 

022216 70S: 


forte Ber CRORE OPER AT PREPARE DEVICE FOR TEST 











oO —— 130 ;TASK DESCRIPTOR 
ne wo Bi 120 10.908 F NO EROR 
Re sRETURN HERE I 
22% 104000 ERROR ERROR ® DEFINED BY TSTPRP SUBROUTINE 
000137 022660 IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
022236 80S: 
1208: 
;WRITE DATA TO THE DRIVE 
92203 013797 900061 001376 MOV 8D! GO, RMCS10 WRITE DATA COMMAND 
1 001 MOV SPUTINK, Re ‘LOAD PUT REGISTER INDEX TABLE 
1ie7ee 000006 MOVB RHA, (Re) + 
eae 
ba lies mY age ae 
4 Ii 000004 MOVE § SRMBA, (R2)+ 
022270 112722 o00002 MOVB (Re) 
Ee NES 8 me Bahai 
200 #200, (Re) + ; TERMINATE TABLE 
ISR PC,PUT ;GO WRITE REGISTERS WITH TINE 
att Bre SE uy 1308 IF nO ERROR 
le NOP eT ie IF ERROR 
om # SO 8 OF TaEs (VCR Fou 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
022322 004737 o42712 ISR PC, GETSTS G0 TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND TO COMPLETE 
022326 004737 043606 ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
022332 004737 042776 JSR PC,GET ;GO READ sity WITH GET SUBROUTINE 
tes BR 14S pan 19 40s IF NO ERROR 
rarer ERROR RETIN Fae ey er cer SUBROUTINE 
022344 000137 022660 IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
022350 140$: 
: CHECK FOR ERRORS DURING WRITE OPERATION 
004737 043772 ISR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
022354 O0040S BR 150s GO TO 150$ IF NO ERROR 








esr, PART 3 Y11 30(1046) ir a SEQ 0124 
DaRREA. 4:18" Th RITE, WATTE CHECK W/ iB. SEEK : 

6137 NOP 

a cca El Petia " 
hy 022660 sr IMP acOs IF ERROR WAS FOUND 

" ‘JSR PC, OTASTS ;GO VERIFY TS OF DATA TRANSFER 

b1M3 wanes: ER 160$ -GO TO 160$ IF NO ERROR 

bli ERROR ie arenes jERROR Pine DEFLRED BY DTASTS SUBROUTINE 
He 022660 in IMP cas ae OT Ae rs ERROR WAS FOUND 
61 f 

6150 170S: 

044624 RR ;GO CHECK FOR SE 

pied ape tt see OR aoe TE ND ERROR 

36 ERROR “ayes SA Bears CRT CE CERR SUBROUT INE 
1 + MORE ERROR 

sie? 022660 see IMP 350s ome TO 350$ IF ERROR WAS FOUND 
1 . 

1 ;CHANGE LOOP ADORE 

i, re ae ee gin Yee ER 
bigs 000410 BR #1508, ;SKIP TO NEXT OPERATION 
plea g Og eaner ag 7 ppineiconnnte cay crear mnatnnic naan 

1 

6166 
bib 022446 190S: 

1 

VICE F AD OPERATION 

et 022446 037260 —— 1 - ben TETPRP “PREPARE DEVICE FOR TEST 

6171 Oee4S2 054130 Pet] 30 TASK DESCRIPTOR 

bi7e Oeee¥ OOONO4 BR 200$ TURN Hoge oe POOS EF NO ERROR 

pita hata ste ERROR i enon a berten: gy t BY TSTPRP SUBROUTINE 
ate Devoe 000137 022660 sa JMP 350$ IF ERROR WAS FOUND 
1 . 

et 022466 240S: 

1 

He 022466 012737 000051 001376 — —— OCD GO RMCS10 ;READ DATA. COMMAND 

Ba NX’ T TER INDEX TABLE 

ri feeins TIS Baie ve Seed tA. Soke tee 

pee 10 it MOVE See’ Re)s 

b1Be 4 L13768 eee MOVB SNA? (RODS 

61 il oo0002 MOVB  &SRMWC. (Re)+ 

6188 112722 000000 MOVB  SRMCSI, (R2)+ 

6183 112712 000200 MOVE #200, (Re) 

619 3246 J PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 

st SS5ea0 Boe - aR 250s ;GO TO 2S0$ IF NO ERROR 
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RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1 39 PAGE 123 SEQ 0125 
1 29-JUL-77 14:18 T15 WRITE, WRITE CHE MID-TRANSFER SEEK 
Oees42 000240 NOP ;RETURN HERE IF ERROR 
Oees44 104000 ;ERROR 8 ber prep BY et SUBROUTINE 
pace tt 000137 022660 JMP 350$ ;60 TO IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
004737 042712 JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 
;WAIT FOR READ OPERATION TO COMPLETE 
004737 043606 JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR READ OPERATI 
JSR PC,GET ;GO READ "REGISTERS 5 gg 
; RETURN F 
ERROR ® DEFINED BY GET SUBROUTINE 
;G0 TO 3S0$ IF ERROR WAS FOUND 


8 
e 


a 


000137 022660 IMP 350$ 
2605: 
;CHECK FOR ERRORS DURING READ OPERATION 
737. 043772 PC, PRIERR GO CHECK FOR PRIMARY 
BR 270 82, TO 270$ IF NO ERROR 
er iF EROR if BY PRIERR TINE 
She a SL 
000137 022660 oe IMP 350s :GO TO 350$ IF ERROR WAS FOUND 
004737 056276 JSR PC. DTASTS :G0 VERIFY | TS OF DATA TRANSFER 
BR 280s F NO ERROR 
NOP : RETURN here IF 
1 ERROR ERROR & SFE HED BY DTASTS SUBROUTINE 
736 ISR PC, a(SP)+ : OR 
137 022660 IMP GO TO IF ERROR WAS FOUND 
. 280$: 
290S: 
004737 o44624 JSR PC, SECERR ;G0 CHECK FOR SECONDARY ERRORS 
000405 BR 300s F NO ERROR 
ANN eur NOP ; RETURN 
404000 ERROR ‘ERROR & BEEINED BY SECERR SUBROUTINE 
736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECK 
000137 O22660 IMP are GO TO 3S0$ IF ERROR WAS FOUND 





3S0S: 
een ae a oe 


i kTE HCE E' 
jHegneanveaeaneaseubeeuteusessiGsheatrOanGaeeaeeaaeaaneaeeaaesy 
be PL 
02660 000004 SCOPE ;SCOPE CALL 
NOP ;START OF TEST 
12706 001100 #STACK, SP ; INITIALIZE STACK POINTER 
022670 013700 001276 MOV SBASE IBUS 
022674 013701 001446 MOV TSTQUE, RI (RI) = DEVICE BEING TESTED 
022700 012737 O00016 Oo0l1226 MOV #16, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
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29-JUL-77 14:18" T16 WRITE, READ W/ 
= EESKEEESESRERRARSEREREEEAERRSESERSEAS RE REARAE RA ERAREASRARLEAELES 
LOOP #1 FORMAT, WRITE, READ 
012704 900000 MOV R4Y=HEADER WORD 
| i. ROS, TTR. A, SORE 
‘MOTE: BSE NOT TESTED 
012703 o20000 los: MOV #81T13,R3 ;R3=HCE BIT 
_;PREPARE THE DEVICE FORE FORMAT OPERATION 
047 037260 JSR PC, TSTPRP “PREPARE DEVICE FOR TEST 
1 .WORD 054130 ;TASK DESCRIPTOR 
BR 20S GO 0. 20$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
1 ERROR : ERROR . DE 1HeD BY TSTPRP SUBROUTINE 
000137 024354 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 


2 So She 


01 001432 MOV 
O1s737 GooooG eats HOY «SOT RMDSO ifrack = 0 ge SECTOR = =0 
1 1 01402 MOV #BUF ONE. RMBAO : BUS 
012737 177376 001400 MOV 8c 4C< +256.>41>,RMWCO  ; tial 
ot 919009 001430 MOV #FMT16, RMOFO 16 BIT FORMAT 
1 001376 MOV 8H! GO; RMCS1O *WRITE HEADER AND DATA COMMAND 

VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 

004737 040174 ISR PC, BADSCT ;CALL BAD SECTOR MODULE 

G00405 tape: BR oS SC ani eee to TO 25$ IF NO ERROR 

1Baoo8 ERROR : ERROR '§ ‘oe ined Br HES RASecT SUBROUT INE 

000137 024354 a J 350$ 350$ IF ERROR WAS FOUND 

012737 070060 001174 “MoV ZEROS STMPO arent ADDRESS OF PATTERN 

012737 O00001 001176 MOV STHeL “RANGE OF PATT 

004737 042100 JSR PC’ GE GO GENERATE BUFFER FOR FORMAT 
CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ 

930364 106520 BIT R3 BUF ONE (R4) ;SET OR RESET FOR HCE?? 

0364 106520 BIC R3, BUFONE (RY) RESET BIT FOR HCE 

peosed 106520 26s: BIS R3, BUF ONE (RY) ;SET FOR HCE 
;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 

012702 001533 MOV SPUTINX, Re Re = BYTE ENTRY POSITION 

112722 000034 MOVB #RMDC, (R2)+ 

11 000006 MOVB § SRMDA, (Re) + 

14 00000 eve #RMBA, fa}s 

1 n0000e2 MO #RMWC, (Re) + 

112722 000032 MOVB  - BRMOF. (Re) + 

112722 000000 MOVB  #RMCSI, (R2)+ 

112712 000200 MOVB #200, (Re) ; TERMINATE TABLE 


30S: 
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1 29-JUL-77 14:18" 


T16 WRITE, READ W/ HCE ERROR 
; FORMAT ne DRIVE 


043246 PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
40s GO T F NO ERROR 
ph gl F 
024354 al Fen 350$ — Be To obs FLT ERROR Hae FOUND 
;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
042712 ISR PC,GETSTS G0 TO GETSTS SUBROUTINE 
;WAIT FOR THE FORMAT TO COMPLETE 
043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR FORMAT OPERATION 
042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
so$ -GO TO IF NO ERROR 
NOP RETURN HERE IF 
ERROR * ERROR a DEFTHED BY GET SUBROUTINE 
024354 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
; VERIFY NO ERRORS DURING FORMAT 
056276 JSR PC. DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
BR 60$ -GO TO 60$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR ‘ERROR ® DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
024354 “i JMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
;MOVE LOOP ADDRESSES TO NEXT OPERATION 
023224 001122 MOV #703, SLPADR 
023224 001124 MOV #70$; SLPERR 
BR 80S ;SKIP TO WRITE OPERATION 
$ Pg pam Fa mee earn asian gece ener een 
: L00P WRITE, READ 
70S: 
PREPARE DEVICE FOR WRITE OPERATION 
037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
.WORD 054130 ;TASK DESCRIPTOR 
80S TO 80$ IF NO ERROR 
NOP ; RETURN HERE IF ERROR 
ERROR ERROR & DEF INED BY TSTPRP SUBROUTINE 
024354 IMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 
120$: 
;WRITE DATA TO THE DRIVE 
106524 001402 MOV #BUF ONE +4, RMBAO CHANGE BUS ADDRESS 


SEQ 0127 
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FUNCTIONAL TEST, PART 3 MACYI1 30( 1046 
29-JUL-77 14:18" T16 WRITE, W/ 
012737 MOV #1256. #1) | RMMCO fe cE CHANGE WORD COUNT 
Bsr my elias REE PRT ocx nex 
it MOVB sRMDA, (Re) + 
Hes mye ape 
1 000 MOVB SRMBA, (Re) + 
iie?ee MOVE aRrC (FE) + 
115755 Nove w08. (Re) ; TERMINATE TABLE 
o0u7 37 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 130s “30 TO. 130$ IF NO ERROR 
ae i Sat Be 
i ERROR RROR # DEFINED BY PUT SUBROUTINE 
000137 024354 ‘ear JMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
- SETUP STER T BUFFER FOR TAT 
004737 042712 : Regs ade rats 5O510 GETSTS: SUBROUTINE 
;WAIT FOR WRITE COMMAND TO COMPLETE 
004737 043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
p04737 042776 ISR PC,GET GO READ EGISTERS SMITH, GET SUBROUTINE 
BR 140$ 0 140$ IF NO ERROR 
000240 NOP ; RETURN igre IF 
104000 ERROR 43 # DEFINED BY GET SUBROUT 
000137 024354 ae IMP 350$ ;G0 TO 3S0$ IF ERROR WAS FOUND 
CHECK FOR ERRORS DURING WRITE OPERATION 
004737 043772 ISR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
000405 BR 145$ -GO TO 145$ IF NO ERROR 
000240 RETURN HERE IF ERROR 
404090 ERROR ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 024354 wa IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
;DECODE THE TYPE af ERROR PRODUCED BY THE BIT POSITION OF R3 
005704 TST 51S THIS THE FIRST HEADER WORD ? 
001006 BNE Res :NO #8 
032703 010000 BIT #FMT16,R2 1S THIS A FORMAT ERROR ?? 
001 BNE 1S5$ *YES #! 
140000 BIT #MSE!USE,R3 ‘IS THIS A BAD SECTOR ERROR ?? 
001056 BNE 165$ ‘YES #8 
146S: 
VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED 
37 000200 001342 BIT HCE, RMERLI sHAS HCE DETECTED ?? 
001077 BNE 1 ‘YES ! 
FOE WAS NBT DETECT =D - SEE IF THERE WAS’ ANOTHER ERROR 
004737 056276 JSR PC. DTASTS : GO VERIFY RESULTS OF DATA TRANSFER 


150s 


SOS IF NO ERROR 


SEQ 0128 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 127 SEQ 0129 
T16 WRITE, READ W/ HCE ERROR 


;RETURN HERE IF ERROR 
sERROR # DEFINED BY DTASTS SUBROUTINE 


ERROR 
te eg g“SP* oO ACK OORT D se08 Te ERROR LAS FOUND 


1S0$: 
MOV RMERI ;RECEIVED STATUS 
MOV ance, StODA “EXPECTED STATUS 
Ris RY = HEADER WORD WORD NUMBER 
MOV R3; treo *R3 = BIT POSIITON 
ERROR 344 sHCE NOT DETECTED 
‘aie IMP 350$ 


; VERIFY THAT A FORMAT ERROR WAS DETECTED 
BIT #FER, RMERLI VES FER DETECTED ?? 


BNE 1 
FER WAS NOT DETECTED = SEE IF THERE WAS’ MROTHER ERROR 
JSR PC, DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 
BR 160 F NO ERROR 
NOP j RETURN | 0 
ERROR epee jERROR 8 D INED BY DTASTS SUBROUTINE 
aa JMP ‘a 60°10 3608 IPE WAS FOUND 
MOV #FER, SGDDAT sEXPECTED STATUS 
MOV RMERII, SBDDAT RECEIVED STATUS 
ERROR 343 ‘FER NOT DETECTED 
IMP 350$ 
165S: 
VERIFY THAT A BAD SECTOR ERROR WAS DETECTED 
BIT aGSE , RMERCI ss BSE DETECTED 7? 
BSE WAS NOT DETECTED - SEE IF nee Was ANOTHER ERROR 
JSR PC. OTASTS GO VERIFY RESULTS OF DATA TRANSFER 
170$ -GO TO 170$ IF NO ERROR 
NOP actu HERE IF ERROR 
ERROR ERROR ® DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
‘ae MP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
MOV RMER2I , SBDDAT sRECEIVED STATUS 
#8SE, SGDDA “EXPECTED STAIUS 
ERROR 345 *BSE NOTDETECTED 
175 = 
JSR PC, SECERR GO CHECK FOR SECONDARY ERR 
180$ -GO TO 180$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR “ERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ :G0 FOR MORE ERROR CHECKS 
350$ GO TO 350$ IF ERROR WAS FOUND 
180$: 
;CHANGE LOOP ADDRESSES 
#190$, SLPADR 
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001402 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 128 SE@ 0130 
T16 WRITE, READ W/ HCE ERROR 


MOV #190$ , SLPERR 
; [Py pememaay  psaeecics te 0 meareaenaeers peng some 9 
190$: 
chaning am FOR READ OPERATION 


DEVICE FOR TEST 
“toro O54 pealao ; TASK ped hipr peel a ins 
sRETURN HERE I FERRO — 
ERROR ERROR # BEE INED BY TSTPRP SUBROUTINE 
JMP 350$ G0 TO S508 IF ERROR HAS FOUND 
200: 
240S: 
READ DATA FROM DEVICE 
MOV #BUF TWO+4, RMBAO ;CHANGE BUS ADDRESS 
MOV #<4C256.+1>, RMWCO : CHANGE WOR C 
MOV #RD!GO, RMCSLO READ DATA COMMAND 
MOV #PUTINK, Re "LOAD PUT REGISTER INDEX TABLE 
MOVB = SRMDA, (R2)+ 
MOVB  SRMOF, (RO)+ 
MOVB = SRMDC, (R2)+ 
MO BRNBA, (RE) + 
MO @RMWC) (RO)+ 
MOVB  #RMCS1, (Re)+ 
MOVB —«- #200, (Re) 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 250s 10. 250$ IF NO ERROR 
NOP ; RETURN be ERROR 
ERROR ERROR # THED BY PUT SUBROUTINE 
IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
250$: 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
ISR PC, GETSTS ;GO TO GETSTS SUBROUTINE 
;WAIT FOR READ OPERATION TO COMPLETE 
ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
GO READ STATUS FOR READ OPERATION 
JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
260 -GO TO 260$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
ERROR “ERROR # DEFINED BY GET SUBROUTINE 
IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
260S: 
CHECK FOR ERRORS DURING READ OPERATION 
JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
266$ GO TO 265$ IF NO ERROR 


; RETURN ERE IF ERROR 
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T16 WRITE, READ W/ HCE ERROR 


ERROR sERROR # DEFINED BY PRIERR SUBROUTINE 
SR PC, a(SP)+ ‘G0 BACK FOR HORE ERROR CHECKS 
ai 350$ :GO TO 350$ IF ERROR WAS FOUND 
;DECODE THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3 
TST Bs 1 THIS THE FIRST HEADER WORD ? 
BIT 8FMT16,R3 $181 THIS A FORMAT ERROR 7? 
I ‘USE ,R3 HIS THIS A BAD SECTOR ERROR ?? 
BNE 285$ YES !! 


2668: 


jWERIFY THAT A HEADER, COMPARE ERROR WAS DETECTED oe ren 99 


ce OTT EOF NES 
JSR PC. DTASTS -GO VERIFY RESULTS OF DATA TRANSFER 
270 F NO ERROR 
NOP : RETURN 
ERROR ‘ERROR ® DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR CHE 
cons IMP 350s G0 TO IF ERROR WAS FOUND 
MOV RMERII, SBDDAT sRECEIVED STATUS 
MOV #HCE, SCDDAT ‘EXPECTED STATUS 
MOV RY, STMPO :R4 = HE NUMBER 
MOV R3’ STMPL *R3 = BIT POSITION 
ERROR 344 sHCE NOT DETECTED 
IMP 350$ 
275S: 
VERIFY THAT A FORMAT ERROR WAS DETECTED 
BIT EER, ,RMERLI sa FER DETECTED ?? 
sFER WAS NOT DETECTED - SEE IF THERE WAS ANOTHER ERROR 
JSR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
280$ “GO TO IF NO ERROR 
NOP RETURN HERE IF 
OER pc acspi4 eR ORCK PBR HORE ERROR CHECKS 
IMP Beane : On Th SEOs te ERROR WAS FOUND 
| MOV #FER, SGDDAT ; EXPE STA 
MOV RMERIT, SBDDAT i EEE VED arate 
ERROR 343 FER NOT DETECTED 
IMP 350$ 
2ess: 
VERIFY THAT A BAD SECTOR ERROR WAS DETECTED . 
BIT #BSE , RMERZI ; WAS BSE DETECTED ?? : 


BNE 
BSE WAS NOT DETECTED SEE IF THERE WAS’ ANOTHER or 
ISR PC. DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
290 200s I NO ERROR 


Go T 
; RETURN heRE IF € 
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DZRMEA.P11 29-JUL-77 14:18 Tib WRITE, READ W/ HCE 
# DEFINED BY DTASTS SUBROUT INE 
BE ess GE rc se ESB PORN ERIN 
eo 000137 024 IMP 350s 00°10 3608 IF ERROR HAS FOUND 
o1 001370 001142 — MOV RMER2I , SBDDAT ;RECEIVED STATUS 
30 1 100000 001140 MOV #BSE , SCDDAT “EXPECTED STAIUS 
302 1O4aHs 345 “BSE NOTDETECTED 
BB p 137 000350 ak IMP 350 
94 6 004737 O44624 "JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
4 SOo40s BR 3005 “GO 79. F NO ERROR 
NOP ; RETURN HERE 
104000 ERROR aol j ERROR One DEFINED BY SECERR SUBROUT INE 
a eae ek 024354 IMP Peas -” gem ee RP S Ras FOUND 
rear ; 300$: 
bebe 94330 906203 ASR R3 SHIFT TO NEXT BIT 
1 BNE 310$ *REPEAT IF NOT DONE 
334 005704 TST RY ; SECOND HEADER WORD DONE?? 
1 BNE 3508, ;YES?! 
340 012704 o0000e MOV °SETUP FOR SECOND HEADER WORD 
6607 } Soy LE perenne 
MOV T13,R3 
ok ean ie, ie 
6612 024354 012737 022712 001122 "MOV #10$, SLPAOR ;CHANGE LOOP TO START OF TEST 
13 024362 012737 O2e712 001124 MOV #10$’ SLPERR 
ts : eee ae 
pp18 [eg eueuene nea ea eeEsEOEUROOAEESAESARSAESAESEESAESEES EERE 
a 024370 +61) 
feign ioe Pama 
1 001100 MOV aSTACK, SP NITIALIZE STACK POINTER 
rear BO Tae Mov +3 ae R1 * (RL) : DEVICE BEING TESTED 
024410 012737 000017 001226 MOV #17, STESTN SET TEST NUMBER IN APT MAIL BOX 
6625 s ee cater ane re ee ae 
' /00P FORMAT, WRITE, READ 
peuyi6 012704 oo0000 10S: MOV #0,R4 ; HEADER 
22 012703 000001 MOV #1/R3 ‘HCE BIT 
024426 15S: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
peut 004737 037260 ISR PC, TSTPRP -PREPARE DEVICE FOR TEST 
054130 .WORD 054130 ;TASK DESCRIPTOR 
04 BR 208 -GO TO 20S IF NO ERROR 
NOP RETURN HERE I 
1 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
638 bee 000137 o25640 IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
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ie POREPEETERS GENERATE DATA IUFFER 
MOV g, OCD ;CYLINOER = 


MOV | TRACK = Sector = 0 
MOV TRACK = 0, 

MOV at SP me rae 

MOV 

MOV 66° RNCSIO HEADER 80 DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 

JSR Pc ,BAOSCT ;CALL BAD sect OR HODULE 

Poe , SCTMSG ju Bab A — 

ERROR ERROR 8 SF He. BY BE0SCT SUBROUTINE. 
a IMP 350$ WAS F 

“MOV 8ONES, STMPO ; STARTING ADDRESS OF PATTERN 

MOV $1, STHP1 *RANGE OF PATTERN 

JSR PC; GENBUF GO GENERATE BUFFER FOR FORMAT 
;CHANGE HEADER WORD TO FORCE ERROR DURING WRITE 

BIT R3, BUF ONE (RY -SET OR RESET BIT?? 

BIC — ;RESET BIT 
27s: BIS R3, BUF ONE (R4) SET BIT 
LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 

MOV SPUTINX, Re :R2 = BYTE ENTRY POSITION 

MOVB  SRMDC, (R2)+ 

MOVB = SRMDA, (Re}+ 

MOVB sRMBA, (Re) + 

MOVB  SRMWC, (RO) + 

MOVE = BRMOF. (Re) + 

MOVE  aRMCSI, (R2)+ 

MOVE —- #200, (Re) ; TERMINATE TABLE 
30S: = 
FORMAT THE DRIVE 

J PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 

BR 40$ -GO TO 40$ IF NO ERROR 

NOP ;RETURN HERE IF ERROR 

ERROR : # DEFINED BY PUT SUBROUTINE 
oe INP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
SETUP GET REGISTER INDEX TABLE FOR REAQING STATUS 

JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


;GO0 TO TIMOUT SUBROUTINE 


GO READ STATUS FOR FORMAT OPERATION 
JSR PC.GET ;GO READ REGISTERS SMITH. GE GET SUBROUTINE 
so$ SO$ IF NO ERROR 

; RETURN here IF ERROR 


;WAIT FOR THE FORMAT TO ETE 
JSR PC, TIMOUT _ 


SEQ 0133 


= RMO3 FUNCTIONAL TEST, PART 3 MACYI1 30(1046) 29-JUL-77 17:39 PAGE 132 SEQ 
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97 404000 ERROR sERROR # DEFINED BY GET SUBROUTINE 

9g 137 025640 IMP 350$ ;GO TO 3S50$ IF ERROR WAS FOUND 
Be om 
eon 737 056276 VERIFY A ERRORS OS On co VERIFY TS OF DATA TRANSFER 
Boos feats BOOMs BR 60$ , -GO 10 60S IF NO ERROR 
6704 Oe4704 O00240 ; RETURN PERE IF ERROR 
6705 e470 104000 ERROR ERROR ® DEFINED BY DTASTS SUBROUTINE 
6 024710 004736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
6 024712 000137 025640 IMP 350s ;GO TO 3S0$ IF ERROR WAS FOUND 
6 024716 60S: 
6710 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
6711 O24716 012737 024734 001122 MOV 8705, SLPADR 
6712 Oo4 012737 024734 001124 MOV #70S, SLPERR 
b713 024732 000410 BR 80s ;SKIP TO WRITE OPERATION 
6715 $3 SEKLKAKEGEEL ERLE E LEASH SESS AA AAAS SAAA AES EAAA RL LAEAAAA RES RAAES 
671 LOOP #2 WRITE, READ 
6718 024734 70S: 
6719 
6720 
6721 PREPARE DEVICE FOR WRITE OPERATION 
6722 024734 004737 037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
6 peg 054130 WORD 054130 ;TASK DESCRIPTOR 
6 80S -GO TO 80S IF NO ERROR 
6725 Oe4744 000240 NOP RETURN HERE IF ERROR 
6725 Oc4746 104000 ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
6727 750 000137 O2S640 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
6728 754 80S: 
e750 
6731 024754 1208: 
6 
6 ;WRITE DATA TO THE DRIVE 
5 024754 012737 012000 001430 MOV #HCI!FMT16, RMOFO INHIBIT HEADER COMPARE 
67 Ge7oe bie737 000061 001376 MOV 8D! GO, RMCS10 ‘WRITE DATA COMMAND 

1 06524 001402 MOV SBUF ONE +4. RMBAO LOAD STARTING BUFFER ADORE 

5 024 Ole702 001533 MOV SPUTINX, Re LOAD PUT REGISTER INDEX TABLE 
6738 beeboe 112722 000006 MOVB = BRMDA, (R2)+ 
6739 925008 il 000034 MOVE  SRMDC, (Re) + 
6740 le il MOVB  § SRMOF, (Ro) + 
Brus Geeoes 115798 porore MOVE SAINI’ CRO) 
6 il MOVB #RMWC, (Ro) + 
674, Oes0eb 112722 000000 MOVB  SRMCS1, (R2)+ 
ine 112722 000200 MOVE —«- #200, (R2)+ ; TERMINATE TABLE 
6 004 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
674 ooo BR 130$ “GO TO 130$ IF NO ERROR 
6748 000240 NOP RETURN HERE IF ERROR 
6749 104000 ERROR ERROR # DEFINED BY PUT SUBROUTINE 
6750 025050 000137 Oc2S640 IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
6751 025054 130S: 





DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 ACY 1 30(1046) 29-JUL-77 17:39 PAGE 133 SEQ 0135 
DZRMEA.P11  29-JUL-77 14:18 WRITE, W/ HCI ) 
_ 
6753 ;SETUP REGISTER INPUT BUFFER FOR READING STATUS - 
b74 025054 004737 O42712 ISR PC,GETSTS ;G0 TO GETSTS SUBROUTINE ~ 
6738 ;WAIT FOR WRITE TO COMPLETE 
64 025060 004737 043606 ISR ,TI 5G0 TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE 
Pea 025064 004737 042776 18R Benet 3 READ. REGISTERS WITH GET SUBROUTINE 
eres BSenye boned Nts RETURN Heke Gr ERROR"? ERROR 
6763 025074 194000 ERROR “ERROR ® DEFINED BY GET SUBROUTINE 
b7e4 Ge5076 000137 O2S640 ‘oon IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
6766 : 
676 ;CHECK FOR ERRORS DURING WRITE OPERATION 
eres G55 105 Boobs teste: ane ists = CIE to taos IF Ro ERROR 
6 11 NOP ;RETURN HERE IF ERROR 
677 lle 404000 ERROR ERROR & DEFINED BY PRIERR SUBROUTINE 
5 114 7% ISR PC, 3(SP)+ GO BACK FOR MORE CHECKS 
6773 + 000137 025640 ol IMP 350s ;G0 10 350$ IF ERROR WAS FOUND 
6775 1 000220 001342 a oe SHCE! FER, RMERII ANY ERROR?? 
3 i re 1342 001142 apy Pe SBODAT RECEIVED STATUS 
6778 i eet 001142 BIC atC<HCE! FER) , SBODAT ‘CLEAR DONT CARES 
6780 1 Gera? 100000 001370 151$: 8IT $852, RNERI ANY BAD SECTOR ERRROR ?? 
Boe> GBEIER bara? 001370 01142 SO OARERGT T Roce aTus 
b 1 era ante 001142 BIC 8tCBSE: T : ED 
3 Ee 1140 152$: MOV 80, SGDOAT EXPECTED STRTUS 
678] 025204 000137 025640 350$ 2 
ooea pes 8 o0737 056276 _— J PC, DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
ors ee is aR 166s ; RETURN GoT0 Tets p ERon seats 
irae feesis 1os600 ERROR ig oes! j ERROR a le BY DTASTS SUBROUTINE 
ora tesee 000137 O25640 se IMP 350$ ca GO TO Seo fe ERROR WAS FOUND 
6795 ; 
ee} 025230 170S: 
NSS 230 737 O44624 JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
6798 OeSe2 eos BR 180$ -GO TO 180$ IF NO ERROR 
baad Pe800 ERR RETURN PERE IE ee 
1 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
680i 004736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
580¢ Genet 000137 o2S640 cm JMP 350$ GO TO 350$ IF ERROR WAS FOUND 
: 
bene : LOOP ADDRESSES 
6806 25250 012737 025264 MOV #190$, SLPADR 
6807 025256 012737 025264 001124 MOV #190$; SLPERR 
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MACY11 STRLTE. REAG 29-JUL-77 17:39 PAGE 134 
T17 W/ HCI 


Fee er ae ee ee 


‘oor 


190$: 
;PREPARE DEVICE FOR READ OPERATION 

ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 

. WORD 954130 TASK DESCRIPTOR 

BR CO To 200s I IF NO ERROR 

NOP rerum lene 

er 3S0$ ‘ReraveD By | I? ER OUD 
200S: 
240: 
;READ DATA FROM DEVICE 

MOV 160, RMCS10 ;READ DATA COMMAND 

MOV SBUF TWO+4. RMBAO ; LOAD STARTING BUFFER ADDRESS 

MOV ePuTd NX, Re LOAD PUT REGISTER INDEX TABLE 

MOVB , (R2)+ 

MOVB  SRMOF, (Ro)+ 

MOVB SRMOC, (R2)+ 

Hove BREA, (RE)+ 

SRMWC) (RO) + 

MOVB = BRMCSI. (R2)+ 

MOVB  —- #200, (Re) 

JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 

BR 250s “GO TO IF NO ERROR 

NOP ;RETURN HERE IF 

ERROR ERROR # DEFINED BY PUT SUBROUTINE 
“hall IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 

JSR PC, GETSTS ;GO TO GETSTS SUBROUTINE 


;WAIT FOR READ ig by TO COMPLETE 
JSR PC, TIMOUT ;G0 TO TIMOUT SUBROUTINE 


;GO 80 READ REGISTERS igo to reas FS INE 


;RETURN HERE 
‘ERROR # DEFINED ne GET SUBROUTINE 
;G0 TO 350$ IF ERROR WAS FOUND 


;G0 =e FOR READ 


mt 


NOP 
ERROR 
JMP 


;CHECK FOR ERRORS DURING READ OPERATION 


ISR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 

BR 270 GO T F NO ERROR 
;RETURN HERE IF 

ERROR ‘ERROR # DEFINED BY PRIERR SUBROUTINE 

ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 

IMP 350$ GO TO 350$ IF ERROR WAS FOUND 


SEQ 0136 
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DZRMEA.P11  29-JUL-77 14:18 
2708: 
032737 001342 BIT 
001407 ‘ BEQ 
Ha Risse PONS BBt ius te 
* 100000 001370 2715: a 
ee By ay 
025 1 001370 01142 MOV 
ie OMe? 37 0114 BIC 
001140 2728: Mov 
IG reson 
137 025640 IMP 
275: 
Ge ee Bae # 
BR 
NOP 
foes fees mow veer 
6884 ted 025640 , Thr 
6885 280S: 
eas) 2930S: 
Ba ke 2 
ey Bp 
ca fees ie ‘sm 
000137 025640 MP 
300: 
Ge fey ie oe ‘ro 
6897 “ WORD 
cox eke Go om 
6900 104000 ERROR 
6 10 000137 c2S640 IMP 
: 14 3105: 
6 14 ASL 
3 Gesbis afte BRE 
6906 005704 TST 
6907 OeSb22 001006 BNE 
ts Gee Ble SOR my 
6910 025634 320: 
911 000137 024426 IMP 
91 012737 024416 001122 — MOV 
e314 46 012737 Oe44i6 001124 MOV 
6916 
6917 
6918 025654 +ét20 
6919 000004 
6 56 o000e40 


Fill 


29-JUL-77 17:39 PAGE 135 SEQ 0137 
W/ HCI 
SHCE!FER, RMERII ANY ERROR? ? 
T TATUS 
nn 
, RMER2I 5A, BAD SECTOR ERROR 7? 
RMER2T, SEO0AT * RECEIVED STATUS _ 
so Scb0AT Pe TeD STATUS 
346 *HCE W/HCI SET 
3S0$ 
PC. DTASTS GO VERIFY TS OF DATA TRANSFER 
280$ 60 70 Sac : eB0s IF NO ERROR 
; RETURN ere iF 
‘ERROR & BPE ED” BY Ae BrASTS SUBROUTINE 
PC. a(SP)+ GO BACK FOR MORE ERROR CHECK 
350$ G0 TO 350$ IF ERROR WAS FOUND 
PC, SECERR GO CHECK FOR SECONDARY ERROAS 
3005 -GO TO F NO ERROR 
EUR s DEEINED BY SECERR INE 
PC. a(SP)+ *GO BACK per NORE ERROR RR aie " 
350$ :GO TO 350$ IF ERROR WAS FOUND 
PC GO COMPARE WRITE, BUFFERS 
BUF ONE +4 aE an ING * ADBRE SS OF OF WRITE BUFFER 
BUF TWO+4 : STARTING SS OF READ BUFFER 
310$ :GO TO 310 fe 
RETURN HERE IF ERROR 
: # DEFINED BY CMPBUF SUBROUTINE 
350$ :GO TO 350$ IF ERROR F 
R3 sSHIFT HCE BIT 
320$ CONTINUE IF NOT DONE 
RY *SECOND HEADER DONE?? 
350$ :YES!! 
#1,R3 ‘START WITH BIT O 
#2°R4 DO SECOND HEADER WORD 
1S$ 
$10$, SLPADR sCHANGE LOOP TO START OF TEST 


#10$° SL 
Ve paae 1 AN 


READ W/ IVC E 


TEST 20 RROR 
acensenecauceaneusbantanataadacesnenesaesaaeaaeaneaaeaaeaness 


;SCOPE CALL 
START OF TEST | 
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DZRMEA.P11  29-JUL-77 14:18" T20 WRITE, READ W/ IVC ERROR | 
6921 025660 012706 001100 MOV SSTACK, SP ; INITIALIZE STACK POINTER 
6 1 001276 MOV SBASE Ra ;RO=UNT AOORESS 
1 bo 16 MOV TSTOUE RL :(R1) = DEVI ING TESTED 
9c 7™ O1 001226 MOV #20, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
696 ;LOAD PARAMETERS TE DATA BUFFER 
025702 012737 OCO00000 001432 MOV 80, ;CYLINDER = # 
6 19 1 001404 MOV RMOAO ‘TRACK = #, SECTOR = 
6 1 1 001402 MOV ONE , RMBAO bee $s 
6 12737 1 001400 MOV 8< #025641). RMWCO COUNT 
6 05732 bier? 919000 001430 MOV SFMT 16, RMOFO 16 BIT FORMAT 
t 1 001376 MOV BD), RACSIO ‘WRITE HEADER AND DATA COMMAND 
6934 ;SETUP GET REGISTER INDEX TABLE rm READING STATUS 
ba 02574 004737 042712 ISR PC, GETSTS TO GETSTS SUBROUTINE 
6937 
6938 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
6333 o1 37 025770 001122 MOV 4708, PADR 
12737 025770 001124 MOV 8708, 
eal 025766 000410 BR 80s SKIP TO WRITE OPERATION 
Poi H oe to OM 
694S : 
694% 025770 70S: 


; PREPARE = FOR_WRITE OPERATION 


025770 004737 037260 PC, TSTPRP “PREPARE DEVICE FOR TEST 
054130 . WORD 954130 ; TASK DESCRIPTOR 
BR -GO TO 80S IF NO ERROR 
NOP sRETURN HERE IF ERROR 
ERROR ERROR # DEF INED BY TSTPRP SUBROUTINE 
IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 





;RESET VOLUME VALID 


112737 000024 001533 MOVB  SRMMR1,PUTINX ;SETUP PUT INDEX TABLE 
112737 000200 001534 MOVB  #200,PUTINX+1 ;WRITE TERMINATOR BYTE 
2737 000001 O0i422 MOV #0MD; RMMR 10 : RMMR 1 =DMD 
737 043246 ISR PC, PUT *GO WRITE RMMR1 VIA SUB 
BR 90$ GO TO 90S IF NO ERROR 
NOP RETURN HERE IF ERROR 
Aovoog ERROR s ERROR NUMBER DEFI By PUT SUB 
137 026746 - JMP 3S0$ G0 TO 350$ IF FOUND 
ll 1 #RMMR1, PUTINX 
te ena pte Nove #200 PUTINX?1 i FU MINSTOR ete 
in a eee 
cide BR 100s $8 TO Ios i NO ERROR 
NOP *RETURN HERE IF ERROR 
494000 ERROR ERROR NUMBER DEFT D BY PUT SUB 
137 026746 IMP 350$ -GO TO 350$ IF E WAS FOUND 


100$: 
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001370 


026746 


001370 O0114e 
001370 001140 


MACY11 30( 1046) 
T20 


11 


29-JUL-77 17:39 PAGE 
ERROR 


WRITE, READ W/ IVC 


120$: 


;WRITE DATA TO THE DRIVE 


130$: 


137 SEQ 0139 


#WD!GO, RMCS1 ; WRITE 
Hoag OAD SPORTING BUFFER R ADDRESS 
PUTIN Re LOAD PUT REGISTER INDEX TABLE 
Sat 
SRMBA; (RO) + 
SRMC! (RO)+ 
@RMCS1, (R2)+ 
#200, (R2)+ ; TERMINATE TABLE 
PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
130s 308 IF NO ERROR 
i BEnOR es BEF Be rheD_ 6 BY BPR ur SUBROUTINE 


IF ERROR WAS FOUND 


; SETUP —— INPUT BUFFER FOR READING STATUS 


;WAIT FOR WRITE care TO COMPLETE 
JSR PC, TIMOUT 


;GO READ STATUS FOR WRITE 
PC, GET 


JMP 
140$: 


;CHECK FOR ERRORS oni WRITE OPERATION 
JSR PRIERR ;G0 


NOP 
ERROR 
SR 
JMP 
150$: 


160$: 


PC,GETSTS 


140$ 
350$ 


;G0 TO GETSTS SUBROUTINE 


;GO TO TIMOUT SUBROUTINE 


COMMAND 
;GO0 READ REGISTERS Go 10 156s | US 


JRETURN HERE IF 


col BE FREE Foe 


Pc CHECK FOR PRIMARY ERRORS 
150s *GO TO 1SO0$ IF NO ERROR 
sRETURN HERE IF ERROR 
“ERROR ® DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
350$ ;G0 TO 350$ IF ERROR WAS FOUND 
#IVC, RMER2I ;WAS "IVC" DETECTED?? 
170$ *YES!! 
Pc DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
160$ -GO TO 160$ IF NO ERROR 
RETURN HERE IF ERROR 
‘ERROR ® DEFINED BY DTASTS SUBROUTINE 
PC, a(SP)+ :G0 BACK FOR MORE 
350$ ;GO TO 350$ IF ERROR WAS FOUND 
RMER2I , SBDDAT RECEIVED STATUS 
RMER21, SGDDAT ‘EXPECTED STATUS 





oo 
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010000 001140 
026746 
044624 
026746 
026366 O0llee 
026366 001124 
004737 037260 
abe 
000240 
00197 026746 
112737 001533 
tee ORS tes 
1 000001 001422 
oo 
ae 
000137 026746 
11 b0002e4 001533 
te bD00200 001534 
1 001422 
cg, He 
a 
0001 026746 
127 71 001376 
Big737 1b7s00 Oblade 
012702 001533 


I11 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 138 SEQ 0140 
T20 WRITE, READ W/ IVC ERROR 


BIS #IVC, SGODAT 
ERROR 342 ;IVC NOT DETECTED 


IMP 
170$: 
ISR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 180 -GO TO 180$ IF NO ERROR 
z RETURN PERE TE ERROG 
rE # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
<i JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 


;SKIP TO NEXT OPERATION 


5p MARAE EEE EEE ERLE EEE REELS 
‘LOOP #3 READ 
190$: 


;PREPARE DEVICE FOR READ OPERATION 
;PREPARE DEVICE FOR TEST 


PC, TST 
054130 ;TASK DESCRIPTOR 
2005 GO TO 200$ 008 IF NO ERROR 


NOP RETURN HERE I 
ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
IMP 350$ ;GO TO 3S0S IF ERROR WAS FOUND 
200$: 
RESET VOLUME VALID 
#RMMR 1, PUTINX ; SETUP PUT I TABLE 
8200,PUTINX+1 WRITE TERMINATOR BYTE 
MOV #00’ RMMR1O : RMMR 1 =DMD 
JSR PC, PUT GO WRITE RMMR1 VIA SUB 
BR 210s GO TO e10s IF NO ERROR 
NOP : RETURN IF ERROR 
ERROR ‘ERROR NUMBER DEFINED BY PUT SUB 
nae IMP 350$ GO TO 350$ IF ERROR WAS 
MOVB § SRMMRI,PUTINX  ;SET I TABLE 
#200, PUTINX+1 ‘BRITE TNATOR BYTE 
OPTUS RT ATTE RMMR VIA 
BR 200$ +8 TO Soe IF NO ERROR 
NOP *RETURN HERE IF ERROR 
ERROR ERROR NUMBER DEFINED BY PUT SUB 
a JMP 3S0$ GO TO 350$ IF ERROR WAS FOUND 
240S: 
READ DATA FROM DEVICE 
MOV #RD!GO, RMCS10 ;READ DATA COMMAND 
SBUF TWO+4. RMBAO *LOAD STARTING BUFFER 


+4 ADORESS 
MOV #PUTINX, R2 ;LOAD PUT REGISTER INDEX TABLE 
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MACY11 30(1046) 29-JUL- 7:39 PAGE 139 
WRITE, READ W/ IVC 
MOVB = SRMDA, (R2)+ 
MOVE = SRMOF, (R2)+ 
SENS? (RB) + 
* (RO)+ 
SRM! (RO)+ 
Move  eRMCSI. (R2)+ 
MOVB = 8200, (Re) 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 2sbs -GO TO 2S50$ IF NO ERROR 
NOP oF IF ERROR 
ERROR INED BY PUT SUBROUTINE 
IMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
2S0S: 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
ISR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR READ OPERATION TO COMPLETE 
ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR READ OPERATION 
JSR PC ;GO READ REGISTERS WITH GET gg 3 


GET 
260$ -GO TO 260$ IF NO 
NOP RETURN HERE IF ERROR 
ERROR “ERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ ;GO TO 3S50$ IF ERROR WAS FOUND 


;CHECK FOR ERRORS DURING READ OPERATION 
JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 


270 GO 19 270$ IF NO ERROR 
NOP ; RETURN F ERROR 
ERROR ‘ERROR ® DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
ie IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
BIT 8IVC, RMER2I sHAS "IVC" DETECTED?? 
BNE 290$ : YES! 
ISR PC. DOTASTS :60 VERIFY ew TS OF DATA TRANSFER 
BR 280s O 280$ IF NO ERROR 
NOP ; RETURN ra ERROR 
ERROR “ERROR ® DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR 
ok JMP 350$ CO" TO 350$ IF ERROR WAS FOUND 
MOV RMER2I , SGDDAT sEXPECTED STATUS 
BIS #1VC, $CDDAT 
MOV RMERCI , SBDDAT ;RECEIVED STATUS e 
ERROR 342 IVC NOT DETECTED 
IMP 3S0$ 
290S: 
ISR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
BR 300$ -GO TO 300$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 


SEQ O141 





K11 


DZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACYI1 30(1046) 29-JUL-77 17:39 PAGE 140 SEQ O14e 
DZRMEA.P11  29-JUL-77 14:18 T20 WRITE, READ W/ IVC ERROR : 
7145 026736 104000 ERROR sERROR # DEFINED BY SECERR SUBROUTINE 
(SP)+ ;GO0 BACK 
a ea aa 026746 ake Tip Peas G0 TO I ERED TAS FOUND 
71 ; 
7150 026746 
7 E746 Ol 001122 870, ;CHANGE LOOP TO START OF TEST 
Stak Pepede Bisea Oreo e8 Bot 1S OOS St PPRR 
7153 H ii sesnatennesnessneh “ea mee ee 
gid i | caaeaneeneenneensenbeenneenesSON0000008SOAESEESEEEEEaEEEOTEE 
71 
t Oboe pepoaG Bod NOP ; START OF TEST 
715 76 012706 001100 MOV aSTACK, SP ‘INITIALIZE STACK POINTER 
ipo aoe SR ties NOY Serate Ri this : bevice BEING TESTED 
7168 027002 012737 000021 o01226 MOV #21, STESTN SET TEST NUMBER IN APT MAIL BOX 
7164 
“igs 027010 012737 o00000 001432 sega ig ee Coe = BUFFER 1 INDER =0 
518 027016 016737 001404 MOV #0’ RMDAO : TRACK = 0, SECTOR = 
7168 012737 1 1402 MOV SBUF ONE , RMBAO BUS ADDRESS 
pig BBrOIa Bises> byocee potua Oy OCOSPRIEPRMOFO™ BIT FORMAT 
rife 027046 012737 000063 001376 MOV WH! GO; RMCS1O WRITE HEADER AND DATA COMMAND 
7 T T REGISTER INDEX TABLE FOR READING STATUS 
7174 027054 004737 oO4e712 -eelepd oeeR PC, GETSTS GO TO GETSTS SUBROUTINE 
7176 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
tee SE Ee 15735 nee Bot tS NOY $708" SLPERR 
7178 027074 000410 BR gos ° ;SKIP TO WRITE OPERATION 
7181 ; 2 meaner A reese aaa eae onearttch 
718¢ LOOP WRITE, READ 
7184 027076 70S: 
7185 
7186 
7187 PREPARE DEVICE FOR WRITE OPERATION 
71 037076 004737 037260 JSR PC, TSTPRP i PREPARE DEVICE FOR TEST 
71 7102 054130 . WORD o54130 ;TASK DESC 
7190 027104 OO0404 - BR 400 TO 80$_IF NO ERROR 
719 106 000240 NOP RETURN HERE 
71 110 104000 ERROR ERROR & BEE THED BY TSTPRP SUBROUTINE 
7133 ile 000137 027730 oi JMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
7195 ‘ 
71 ;SET UNSAFE ERROR 
its 027116 112737 000014 001533 MOVB SRMERI,PUTINX ;SETUP PUT INDEX TABLE 
Figs Geeiae Otsea7 pupooD porate OVS Sem, PUTIN, SALTS Teiroe are 
7200 027140 004737 043246 JSR PC, PUT ‘WRITE RMER1 VIA PUT SUS 
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MACY11 30(1046) JUL-77 17:39 PAGE 141 4 
Tel WRITES REAG W/ ABORT “a 


90S: 


120$: 
;WRITE DATA TO 


130$: 


135$: 


136S: 


BR 
ERROR 
JMP 


ERROR 


30$ ;60 TO ee IF NO ERROR 
NORGER DEFINED BY PUT sus 


350$ 100 To ate Te Pech we Fouw 


THE DRIVE 

#WD!'GO, RMCS1O :WRITE DATA COMMAND 

Putt NK Re ‘LOAD PUT REGISTER INDEX TABLE 
#RMOC, (R2)+ 

wee 8} 

SRMWC) (Ro)+ 

#RMCSI. (R2)+ 

#200, (R2)+ TERMINATE TABLE 


FER FOR READING LL 


3 
-- 


Pe’ PUT eG0 wnrré REGISTERS STH PUY SUB 
Sos 70 1308 1PoRG ERROR 

:RETURN Ae! 13TROR 

DEF INED BY PUT SUBROUTINE 

350$ 0 350$ IF ERROR WAS FOUND 
PC,GET ;GO READ iaene WITH GET SUBROUTINE 
136$ 0 135$ IF NO ERROR 

; RETURN HERE IF 

‘ERROR # DEFINED BY GET SUBROUTINE 
350$ G0 TO 350$ IF ERROR WAS FOUND 
AP IP, RMDSI WAS COMMAND EXECUTED? 
RMOSI , SGDDAT “EXPECTED STATUS 
#PIP, $GCDDAT ‘ 
RMOSf , SBDDAT RECEIVED STATUS 
347 :NO ABORT 


;WAIT vg is COMMAND TO COMPLETE 


PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR WRITE 


140$: 
;CHECK FOR ERRORS 
JSR . 


JMP 


BR 
NOP 


PC,GET ;GO READ REGISTERS WITH NE 
1408 70-10 1805 TF NO ERROR 


RETURN HERE 
‘ERROR & DEFINED ae T 
350$ G0 T Ochs fF ERROR LAS WAS FOUND 
DURING WRITE OPERATION 
C. PRIERR GO CHECK ook PRIMARY ERRORS 
SOs TO 150$ IF NO ERROR 
; RETURN beRe IF ERROR 





UN 
"3 


5 
a 


es 
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29-JUL-77 14:18 Tel WRITE, READ W/ ABORT 


FaRoR ;ERROR # DEFINED BY PRIERR SUBROUTINE 
SR PC, a(SP)+ ;G0 BACK FOR MORE ERROR CHECKS 
027730 1S0S: JMP 350$ 


vor 


: 


gS = ne GO TO 180$ IF NO ERROR 
NOP JRETURN PERE TF ERROR 


ERROR 
JSR PC, a(SP)+ ;GO BACK FOR_MORE ERROR 
027730 1808 JMP 350$ ; 


;CHANGE LOOP ADDRESSES 
027420 O0llee MOV #190$, SLPADR 
027420 001124 ev #1508, , SLPERR 


- 
ant 
o 
- 
¥ 
oa 
=! 


;SKIP TO NEXT OPERATION 


4 sos 
| 


22 88 
eRe ae 


Bab Essseaaia decssie 


$ Paae Gh td: tale Cee ee eee an ne 

190$: 

PREPARE DEVICE FOR READ OPERATION 

737 037260 JSR PC Tre “PREPARE DEVICE FOR TEST 
4130 .WORD 0541 TASK DESCRIPTOR 
BR G0. TO. 200$ IF NO ERROR 
ae es Su SE ea 
10% ERROR BEROR 8 INED BY TSTPRP SUBROUTINE 
137 027730 an IMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
aa SET UNSAFE ERROR =a ; ; 
oe 
1153 01 Hove to0b, PUTLINKe| Py BRITE Tenet TTOR BYTE. 
O1e7 37 040000 O01412 MOV RMERI 
004 043246 JSR PC, PUT i Re Ren! Pio BER Sub 
alt BR 216$ = ;Go To 2los IF 
NOP “RETURN MRehe TO REPORT ERROR 
494000 ERROR. ‘ERROR NUMBER DEFINED BY PUT SUB 
137 027730 ae IMP 350$  ;GO TO 350$ IF ERROR WAS FOUND 

240$: 

READ DATA FROM DEVICE 
012797 000071 001376 MOV #RO!GO, RMCS1O READ DATA COMMAND 
01 001533 MOV SPUTINX, Re *LOAD PUT REGISTER INDEX TABLE 
iie7ee DO0N0E 8RMDA, (R2)+ 
il 00003¢ SRMOF , (Re) + 
il 000034 MOVB = #RMDC, (R2)+ 
il MO #RMBA, (Ro) + 
11 Nove #RMWC’ (RO) + 
11 MOVB  #RMCSI. (Re)+ 
112712 000200 MOVB «#200, (Re) 


;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
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DZRMEA.P11 29-JUL-77 14:18 Tel WRITE, READ W/ ABORT 
esta 027546 004737 O42712 JSR =—s- PC, GETSTS ;G0 TO GETSTS SUBROUTINE 
7315 004737 


043246 JSR PC,PUT ;GO WRITE REGISTERS WITH 
BR 2shs i B58 JF NO ERROR 


NOP :. 


027730 BRE” * asos Eon BE TORRES TPT ERROR wad Founo 


250$: 
;SEE IF DEVICE STAR 
perce? CORO READ RERISTERS | WITH GET SUBROUTINE 


7a 


ee 
Bi 


on Gs 





bcee G0 TO esss I IF NO ERROR 
NRROR EN ae iE ht GET SUBROUTINE 
027730 IMP 3S0$ 0 3S50$ IF ERROR WAS FOUND 
KIA 020000 001340 255S: BIT 8PIP, RMOSI is Cofrero EXECUTED? ? 
137 001340 001140 HOV RHDS SI ScD0AT EXPECTED STATUS 
se 
Oe7bse ere 1 00114 ate aeosts T ;RECEIVED STATUS 
347 347 :NO ABORT 
027642 000137 027730 IMP 350$ 
027646 2565: 
;WAIT FOR READ OERATION TO COMPLETE 
027646 004737 043606 ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR READ OPERATION : 
027652 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
000404 BR 260$ -GO TO 260$ IF NO ERROR 
000240 NOP RETURN HERE IF ERROR 
404000 ERROR "ERROR ® DEFINED BY GET SUBROUTINE™ 
137 027730 a, IMP 3S0$ ;GO TO 350$ IF ERROR WAS FOUND 
CHECK FOR ERRORS DURING READ OPERATION 
IERR -GO CHECK F FOR R PRINGR Y ERRORS 
IF NO ERROR 


DUR 
il Bae 
1 


ae on 
000137 027730 J Re 


PRIM EE ECE G arene susnouri 
CHECKS 


u 
Re 
rise tere 
Be 
fs 
: 
Put 
4, 027656 
ra 
7c 
fae 
rs 
: 


PC, a(SP)+ ‘GO BACK F 
4 tal BeOS G0 TO IF ERROR WAS FOUND 
ferris 737 O44624 ? ISR PC SE CERR GO CHECK K FOR SECONDARY sBRRORS. 
16 NOP ; RETURN HERE Oe ERROR 
104000 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
004736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
s4 000137 027730 «SMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
027730 350S: 
j Sesesuueunuunvavunesevesoenseseesssenesesseaseessaseaseaseneee 
tkTEST 22 WRITE, READ W/ BAI 
5 RSE. ae. SRS 
027730 téT22: 
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DZRMEA.P11 a pe 14:18” 155 ORI TES res | W/ BAI _—as 
7369 027730 O00004 SCOPE i$ OPE CALL 
027732 NOP Pizt Slee 
e774 rl 001100 MOV SSTACK,S SP Initia I BK POINTER 
tor BOLaMe a fae e (Rit Nc 
= 
rar B55 5e0 ieee, eee) 001226 MOV Be ety ay = OeVice eel IN AB? RAIL BOX 
5 by emery KEKE SER ALAS ESA RARAAARSRARARERKELKEE ESSERE SELES 
5358 : LOOP FORMAT , WRITE, READ 
7378 
7379 027756 10S: 
7380 > ae 
738 ;PREPARE THE DEVICE. FOR F FORMAT OPERATION 
F362 027756 004737 037260 ISR jPREPARE DEVICE FOR TEST 
es Ser BBCI BR OeaL30 oer aac: -GO TO 20S IF NO ERROR 
7385 Sees NOP ;RETURN HERE IF ERROR 
7386 104000 ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
000137 031006 INP 3S0$ GO TO 3S0$ IF ERROR WAS FOUND 
7388 027776 20S: 
730 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
1 027776 012737 o00000 001432 MOV 80, RMOCO ;CYLINDER = 0 
733¢ 930004 012737 00000 901404 MOV #0; RMDAO *TRACK = 0, SECTOR = 0 
le 01 106520 001402 MOV SBUF ONE. RMBAO BUS ADDRESS 
735 012737 177376 001400 MOV 8<4C(24256.>41>,RMWCO  ; COUNT 
7395 012737 §10000 001430 MOV 8FMT16, RMOFO 16 BIT FORMAT 
Be’ 020034 012737 000063 001376 MOV 8H! GO, RMCS10 *WRITE HEADER AND DATA COMMAND 
7398 ;VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
race sc 030042 004737 040174 JSR PC, BADSCT ;CALL BAD SECTOR MODULE 
7401 9300%6 OO040s BR 2s$ -GO TO 25$ IF NO ERROR 
7402 O300S0 104401 066704 TYPE  ,SCTMSG ; TYPE Bab SECTOR MESSAGE 
7403 030054 104000 ERROR “ERROR ® DEFINED BY BADSCT SUBROUTINE 
7404 fens 000137 031006 ues IMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
Pape 012737 070016 001174 “MoV #ONES, STMPO ;STARTING ADDRESS OF PATTERN 
7407 630070 012737 000001 001176 MOV #1, STMP1 RANGE OF PATTERN 
7408 004737 O42100 ISR PC, GENBUF GO GENERATE BUFFER FOR FORMAT 
Patt 030102 O1 — esa er Re wench inet ; Re ; BYTE CE ENTRY POSITION 
at 330106 13708 Manic HOVE SBME (RED + 
7413 O30112 112722 000006 MOVB § #RMDA, (Ro) + 
mais Gauize {13758 peeere HB Senne’ (po 
tener 
Rie ise lies mM ieee ies 
741 132 112722 000000 MOVB SRMCS1, (R2)+ 
7418 030136 112712 o00200 MOVE 8200, (Re) TERMINATE TABLE 
mis 030142 30S: 
7401 FORMAT THE DRIVE 
7422 030142 004737 043246 ISR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
pes 0301 4o$ -GO TO 40$ IF NO ERROR 
7424 0301 40 NOP ;RETURN HERE IF ERROR 
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7425 0301 ;ERROR # DEFINED BY PUT SUBROUTINE 
ruse eats area 031006 ae 350$ GO TO 3S50$ IF ERROR WAS FOUND 
030160 40S: 
;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 

m0 030160 004737 o4e712 ISR PC,GETSTS GO TO GETSTS SUBROUTINE 

Es ;WAIT FOR THE FORMAT TO COMPLETE 
m 030164 004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
rua GO READ STATUS FOR FORMAT OPERATION 
Ea 030170 004737 042776 J5R PC.GET ;GO READ REGISTERS 5 WITH. Ge GET INE 
7437 030174 OOO404 BR so$ SO$ IF NO ERROR 
ri 176 000240 NOP fi is IF ERROR 
74 104000 ERROR # DEFINED BY GET SUBROUTINE 
7440 000137 031006 IMP 350$ TO 3S50$ IF ERROR WAS FOUND 
7441 030206 SOS: 
744 ; VERIFY FORMAT 
7444 030206 004737 056276 33a OF OHTA ;GO VERIFY RESULTS OF DATA TRANSFER 
7445 O302el2 OO040S 60$ -GO TO 60$ IF NO ERROR 
7446 030214 000240 ; RETURN HERE IF ERROR 
7447 030216 104000 BRROR : # DEFINED BY DTASTS SUBROUTINE 
7448 004736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR 
mvs GaGece 000137 031006 IMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 
7452 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
7453 012737 030244 001122 MOV #70$, SLPAOR 
mioy Gabe 34 12737 0302044 001124 MOV #70S; SLPERR 

2 echt BR ;SKIP TO WRITE OPERATION 

74S7 : Tashi -+i 3-5" ehh 
rie LOOP WRITE , READ 
7460 030244 70S: 
7461 
rues PREPARE DEVICE FOR WRITE OPERATION 
7464 gape 004737 037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
7465 054130 .WORD 054130 ;TASK DESCRIPTOR 
7466 030252 OO0404 BR 80s -GO TO 80S IF NO ERROR 
7467 O30e54 ogae NOP ; RETURN IF ERROR 
7468 1 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
7469 030260 000137 031006 IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
7470 030264 80S: 
m7 
ate 030264 120$: 
7475 WRITE DATA TO THE DRIVE 
7476 030264 111102 MOVB  (R1),Re GENERATE CS2 
7477 177770 BIC ##C<0!U1!U2>, Re 
7478 000010 BIS #BAI 
7479 010237 001406 MOV Re, RMCS20 ; INHIBIT ADDRESS INCREMENT 
7480 012737 177400 001400 MOV #40256. +1>, RMWCO CHANGE WORD COUNT 


UE Ae 


aolvidalatalatlA 
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W/ BAI 


WRITE, 
106524 001402 MOV #BUFONE+4, RMBAO ; CHANGE RODRESS 
000061 001376 MOV 8WD!GO, RMCS1O ; WRITE DATA COMMAND 
HOV SPUTINK RE ‘LOAD PUT REGISTER INDEX TABLE 
MOVB , tR2)4 
mg See 8 
 (Ro)+ 
MOVB » (R2)+ 
MOVE SRMWC. (Ro) + 
Hove = est fe) 
, (R2)+ ; TERMINATE TABLE 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 130s -GO TO 130$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR “ERROR ® DEFINED BY PUT SUBROUTINE 
031006 a IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
042712 ISR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND To COMPLETE 
043606 ISR , TIMOU GO TO TIMOUT SUBROUTINE 
GO READ STATUS is WRITE COMMAND 
042776 JSR PC.GET ;GO READ REGISTERS | WITH GET SUBROUTINE 
BR 140s GO TO 140$ IF NO ERROR 
NOP : RETURN HERE IF ERROR 
ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
031006 me IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
CHECK FOR ERRORS DURING WRITE OPERATION 
043772 ISR PC. PRIE CK FOR PRIMARY ERRORS 
BR 150 -GO TO 1S0$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR *ERROR ® DEFINED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
031006 oad IMP 350s ;G0 TO 350$ IF ERROR WAS FOUND 
056276 JSR PC, DTASTS GO VERIFY OF DATA TRANSFER 
BR 160$ -GO TO 160$ I ERROR 
NOP RETURN HERE IF ERROR 
ERROR : # DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
031006 ee IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
170S: 
044624 JSR PC, SECERR GO CHECK FOR SECONDARY 
BR 180$ -GO TO 180$ IF NO ERROR 
NOP ; RETURN HERE IF ERROR 
ERROR te # DEFINED BY SECERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
031006 JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 


SEQ 0146 


Perry it WEBER RRRR Ls Seda ua aa Uae re eee er ae a3 


vi 

— 
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£ 
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ANS 3 


ss cceeeeecnn Ee & 


as 


ees 


i 


ARARARNSSS 


atatetatetetet=1ai=1=h tes 
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8 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 147 SE@ 0149 
T22 WRITE, REAO W/ BAI 
180$: 
;CHANGE LOOP ADDRESSES 
MOV #190$, SLPADR 
ie Bagg SUPERR 
;SKIP TO NEXT OPERATION 
$3 SERKKLELALAAA RAE SASRRAREAES SARA AE ELAR ELA A AAA ALLA AARRARERAAAASS ES 
LOOP #3 READ 
190$: 
;PREPARE DEVICE FOR_READ OPERATION 
JSR PC, TSTPRP “PREPARE DEVICE FOR TEST 
054130 ;TASK DESCRIPTOR 
2008 GO TO IF NO ERROR 
NOP ;RETURN HERE IF 
ERROR ERROR & DEF INED_ BY TSTPRP SUBROUTINE 
IMP 350$ 60 TO IF ERROR WAS FOUND 
200: 
240S: 
READ DATA FROM DEVICE 
MOVB  (R1),Re RESET BAI 
BIC #¢C<U0'U1!U2>, Re 
MOV R2, RMCS20 
MOV #BUF TWO+4 RMBAO ;CHANGE BUFFER 
MOV #RD!GO, RMCS10 *READ DATA COMMAND 
MOV PUTIN R2 LOAD PUT REGISTER INDEX TABLE 
MOVB , (R2)+ 
HOVE SRMOF , (RO)+ 
SRMDC, (RO)+ 
MOVB § SRMBA, (R2)+ 
ve eel 
1, (Re)+ 
MOVB #200, (Re) 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 250s -GO TO 250$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
ERROR : # DEFINED BY PUT SUBROUTINE 
JMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
250S: 
SETUP REGISTER INPUT BUFFER FOR READING STATUS 
ISR PC,GETSTS GO TO GETSTS SUBROUTINE 


;WAIT FOR READ OPERATION TO COMPLETE 
JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR READ OPERATION 
JSR ;GO READ eis GET SUBROUTINE 


IF NO ERROR 
NOP SRETURN HERE IF 
ERROR ‘ERROR # DEFINED BY GET SUBROUTINE 


3 
aa 





Fle 
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DZRMEA.P11  29-JUL-77 14:18 T22 WRITE, READ W/ BAI 
7593 030700 000137 031006 IMP 3S0$ :GO TO 3S0$ IF ERROR WAS FOUND 
Len 030704 260S: 
CHECK F READ OPERATION 
a 043772 OR ERRORS OLE DER 560 BB cx FOR PRIMARY ERRORS 
ag neath eed BR 270 -GO TO 270$ IF NO ERROR 
7933 lz ope40 NOP : RETURN IF ERROR 
14 1 ERROR : # DEFINED BY PRIERR SUBROUTINE 
7e0} 630716 004736 JSR PC. 3(SP)+ GO BACK FOR MORE ERROR 
000137 031006 iis 350 ;GO TO 350$ IF ERROR WAS FOUND 
Tes Gres 904737 056276 JSR PC. DTASTS ;GO VERIFY TS OF DATA TRANSFER 
280$ -GO IF NO ERROR 
706 030732 000240 RETURN HERE IF ERROR 
030734 104000 ERROR ‘ERROR ® DEFINED BY DTASTS SUBROUTINE 
004736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECK 
000137 031006 IMP 350$ ;G0 TO 3S50$ IF ERROR WAS FOUND 
761 2280S: 
7611 
7612 030744 290S: 
7613 030744 004737 O44624 JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
7614 630750 000405 BR 300 -GO TO F NO ERROR 
7615 000240 NOP sRETURN HERE IF 
7616 030754 104000 ERROR ERROR # EFINED BY SECERR SUBROUTINE 
7517 GON7 36 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
718 030760 137 031006 IMP 350s G0 TO 350$ IF ERROR WAS FOUND 
7620 004737 o42344 _ JSR PC, CMPBUF ;GO COMPARE WRITE, READ DATA BUFFERS 
762 1 .WORD BUFONE+4 STARTING OF WRITE BUFFER 
1 “WORD  BUFTWO+4 : STARTING SS OF READ BUFFER 
000404 BR 310$ -GO TO 310$ IF NO ERROR 
Poet 630778 000240 NOP ;RETURN HERE IF ERROR 
1 104000 ERROR *ERROR # DEFINED BY CMPBUF SUBROUTINE 
7beb 931902 000137 031006 IMP 350$ :GO TO 350S IF ERROR WAS FOUND 
031 310$: 
7628 
7629 031006 350S: 
7630 jSERSesRUAMRNESE ES AMET iG 
7631 i kTeST 23 WRITE, READ T LEVEL 
7632 TTETTTTTETET TTT TTTISTTET TTT TT TTT Te TTT TTT ttt ttt tt ttt tt Tey 
7633 031006 +8123: 
7634 O31 000004 ; 
7635 031010 oo0240 35 OF TEST 
7636 O310i2 012706 001100 MOV 8STACK, SP S INITIALIZE STACK POINTER 
7637 031016 013700 001276 MOV 
7638 031022 013701 001446 MOV TSTQUE, RI F(RI) = DEVICE BEING TESTED 
7639 031026 012737 000023 001226 MOV #23, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
7641 : Po" apeieeeneae OOo ao peepee cmeeangeneorenne 
74 C00P FORMAT, WRITE , READ 
A aa 031034 10S: 
rea 031034 004737 037260 ees Eon FEE CUPRP a OPE RE PARE DEVICE FOR TEST 
7648 031040 054130 054130 ;TASK DESCRIPTOR 


ae 1 


wi 
— 
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1 29-JUL-77 14:18" T23 WRITE, READ EACH CURRENT LEVEL 
031042 000404 BR 205 -GO TO 20S IF NO ERROR 
031044 000240 NOP ; RETURN HERE IF ERROR 
G310N6 404009 ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
1 137 032060 re 3S0$ ;GO TO 350$ IF ERROR WAS FOUND 
031054 20S: 
; LOAD PARAMETERS A GENERATE DATA BUFFER 
Ses Cle OO NS as. YB RS Secon 
esti pis735 ese 001402 MOV #B0F ONE 'BUS ADDRE 5 
031076 012737 177376 001400 MOV sete ear BSE oo), RMMCO :WORD COUNT 
031104 Sig? 37 01 001430 MOV 8FMT16, RMOFO 16 eI FORMAT 
031112 Ol 000063 001376 MOV #iwH! GO, RMCS10 :WRITE HEADER AND DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
031120 004737 040174 JSR PC, BADSCT ;CALL BAD SEC OR MODULE 
Bal Se OOUBT 066704 YPE  , SCTMSG ; TYPE pais Seto h _— 
1132 104000 : # DEFINED BY T SUBROUTINE 
1134 000137 032060 “i IMP 3S0$ ;GO TO 350$ IF ERROR WAS FOUND 
tiap 01 070060 001174 “MOV #ZEROS, STMPO ; STARTING OF PATTERN 
1148 O01 000001 001176 MOV #1, $TMP1 “RANGE OF POT ERR 
1154 004737 042100 JSR PC’; GENBUF GO GENERATE BUFFER FOR FORMAT 
; LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
1160 01 PUTIN R2 :R2 = BYTE ENTRY POSITION 
ll ll nove , (Re)+ 
1170 11 MOVB §_ 8RMDA, (Re)+ 
174 iie7ee MOVB WRNBA, (RE)+ 
1204 11868 nove SRNOE’ (RB) 4 
1210 11 MOVB  #RMCSI, (R2)+ 
1214 112712 ne MOVB #200, (Re) ; TERMINATE TABLE 





— a 
888888 S88888s8ss8 


1220 004737 043246 Js PCAPUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
{55¢ ppp NOP ;RETURN HERE o ERROR sine 

1230 104000 ERROR “ERROR # DEFINED BY PUT SUBROUTINE 
1e3e 000137 032060 as JMP 3S0$ GO TO 3S50$ IF ERROR WAS FOUND 


;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 


8 


1 


i 
2 
g 
2 
~ 


;WAIT FOR THE he | TO COMPLETE 
JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


& 
% 
iat) 
g 
2 
e 
& 


1246 042776 og tea — be cet nO READ. AER ISTE WITH GET INE 

3 1ee8 eed BR so$ RR 15 Soe I NO ERROR 
031254 NOP ;RETURN HERE IF RROR 

031256 104000 ERROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
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032060 


056276 


88 
R 


037260 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 150 SEQ 0152 
T23 WRITE, READ EACH CURRENT LEVEL 


cos JMP 350$ ;G0 TO 3S0$ IF ERROR WAS FOUND 


BY TR ROR BTA TS “co VERIFY RESULTS OF DATA TRANSFER 
Be StéG OS ;G0_T0_60$ IF NO ERROR 


ERROR BIW Pa TE ERROR SUBROUTINE 


ISR PC, a(SP)+ GO BACK FOR MORE 
“se achs G0 TO SOS te ERROR WAS FOUND 
;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70$, SLPADR 
MOV #70S, SLPERR 
BR 80S SKIP TO WRITE OPERATION 


g3 KELLER KERGLELA REE ARRE LER ERES AA LEA ARLE L ARR ERAARARAA ALL AAAREALAALEE 
LOOP #2 WRITE, READ 


70S: 

;PREPARE DEVICE FOR WRITE OPERATION 
JSR TST “PREPARE DEVICE FOR TEST 

054130 ;TASK DESCRIPTOR 

80S -GO TO 80$ IF NO ERROR 


. WORD 

BR 

NOP RETURN HERE IF ERROR 
ERROR ‘ERROR & DEF INED TSTPRP SUBROUTINE 


350$ IF ERROR WAS FOUND 

80S: 
120S: 
;WRITE DATA TO THE DRIVE 

MOV #<*C256. +1), RMWCO ;CHANGE WORD COUNT 

MOV #BUFONE +4. RMBAO : CHANGE Ss 

MOV #WD!GO, RMCS10 ‘WRITE DATA COMMAND 

MOV #PUTINK, Re LOAD PUT REGISTER INDEX TABLE 

HOVE DA, (Re) 

MOVB SAMO! (RO) 

MOVE § RMBA, (RO) + 

MOVB  #RMWC, (Re)+ 

MOVB  #RMCSI, (Re)+ 

MOVB 8200, (Re) + ; TERMINATE TABLE 

JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 

BR 130s -GO TO 130$ IF NO ERROR 

NOP ;RETURN HERE IF ERROR 

ERROR ‘ERROR # DEFINED BY PUT SUBROUTINE 
aa IMP 3S0$ ;G0 TO 350$ IF ERROR WAS FOUND 


;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
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OZRMEA.P11  29-JUL-77 14:18 T23 WRITE, READ EACH CURRENT LEVEL 
776) 031442 004737 042712 JSR PC, GETSTS GO TO GETSTS SUBROUTINE 
7763 ;WAIT FOR WRITE COMMAND TO COMPLETE 
res 031446 004737 043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
7767 0314S2 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
Free Baldes Bpocad pe, NOS SRETURN AERE Te/eRROR "° ERROR 
7770 031462 104000 ERROR ERROR # DEFINED BY GET SUBROUTINE 
ee G31 464 000137 032060 em IMP 350$ GO TO 350$ IF ERROR WAS F 
7774 CHECK FOR ERRORS DURING WRITE OPERATION 
7775 031470 004737 043772 JSR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
7776 031474 BR 150s -GO TO 1SO$ IF NO ERROR 
balan SRROR EUR SEEINED By TINE 
rr Hie AB GS scarce Bok Pan tike Eade UE 
7780 osi819 137 ‘aan JMP 350$ GO TO 350$ IF 
18 056276 "JSR PC, DTASTS :GO VERIFY RESULTS OF bara TRANSFER 
Tee ei 14 Saas 160$ ay Gy 70.1608 IF NO ERROR 
G3i5e0 Ibs600 eRROR PC, a(SP)+ Ein KF ae OT RROR oon ch CKS —_ 
718) O315e4 000137 032060 wae JMP 350$ ae TO O se08 Ir IF ERROR WAS FOUND 
7789 ; 
7790 931530 170$: 
7791 031530 004737 o44624 ISR PC ,SECERR GO CHECK oh SECONDARY ERR ERRORS 
ras aise hieg MP ee 
7795 031542 004736 JSR PC, a(SP)+ BO BACK FOR MORE ERROR CHECKS 
77% g315H4 000137 032060 oot IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
7798 ; 
7799 CHANGE LOOP ADDRESSES 
7800 931 127 931566 001122 MOV $190$, SLPADR 
1 631 1 1566 001124 MOV $1908" SLPERR 
7802 031564 000410 BR 200$ ;SKIP TO NEXT OPERATION 
oe . “D0 ye geearayy Oh pancceencones ge arena seram stepamannenor wt 
7806 =" 
7807 031566 190$: 
78093 PREPARE DEVICE FOR READ OPERATION 
7810 031566 004737 037260 JSR PC, TSTPRP “PREPARE DEVICE FOR TEST 
7811 031572 054130 . WORD 954130 TASK DESCRIPTOR 
7812 031574 OO0404 BR -GO TO 200$ IF NO ERROR 
713 631578 000240 NOP RETURN HERE IF ERROR 
14 031 104000 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
7816 031602 000137 032060 oon IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
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1S2 4 
DZRMEA.P11  29-JUL-77 14:18" Hae anette” REG EACH CURRENT LEVEL SEQ O15 


wadas 


SeSeRRRER ee RURURAT ARAB setae T oe: eouc eRe R RIN O MRSS 


18 031606 240S: 
;READ DATA FROM DEVICE 


1 1 001 +4 CHANGE ADDRESS 
eva Ne 17708 atte ey RU RCO 
1 i 1 001376 MOV #RO'GO, RMCSIO ;READ DATA COMMAND 
931530 018708 poraa? HOV sPUTINK Be LOAD PUT REGISTER INDEX TABLE 
031640 112722 000032 MOVB BRMOF , (R2)+ 
Bless ete Gaeee Me tee): 
a3 lie?ee MOVB aRMC | (RE) 
Bi 11271 ritaed nove on stRS) 
031670 004737 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
031 74 BR 250s “GO TO 2S50$ IF NO ERROR 
1676 NOP ;RETURN HERE IF ERROR 
031700 104000 ERROR ‘ERROR ® DEFINED BY PUT SUBROUTINE 
031702 000137 032060 IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
031706 250: 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
031706 004737 o4e712 ISR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR READ OPERATION TO COMPLETE 
031712 004737 043606 JSR ¢, TIMOUT GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR READ OPERATION 
JSR PC, GET 


031716 004737 042776 ;GO READ REGISTERS WITH GET SUBROUTINE 
O317 000404 260$ -GO TO 260$ IF NO ERROR 
1 000240 ;RETURN HERE IF ERROR 
1726 104000 ERROR “ERROR # DEFINED BY GET SUBROUTINE 
1730 000137 032060 IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
17 260$: 
CHECK FOR ERRORS DURING READ OPERATION 
931734 004737 043772 JSR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
1740 OS BR 270$ -GO TO 2708 IF NO ERROR 
031742 000240 NOP ;RETURN HERE IF ERROR 
1744 404000 ERROR ‘ERROR ® DEFINED BY PRIERR SUBROUTINE 
031746 7% ISR C,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
031750 000137 032060 tie IMP a ;G0 TO 350$ IF ERROR WAS FOUND 
pate 004737 056276 JSR DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
1760 000405 BR oes -GO TO 280$ IF NO 
17be 000240 NOP ;RETURN HERE IF ERROR 
1 104000 ERROR ‘ERROR # DEFINED BY DTASTS SUBROUTINE 
031766 004736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
031770 000137 032060 IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
031774 2805: 
031774 290S: 
031774 004737 O44624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
032000 o0040S BR 300$ :GO TO 300% IF NO ERROR 
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OZRMEA.P11 29-JUL-77 14:18 T23 WRITE, READ EACH CURRENT LEVEL 
7873 000240 NOP RETURN HERE IF ERROR 
7874 032004 104000 ERROR -ERROR # DEFINED BY TINE 
rie HERTS BBS coon aT ee ides Sites roxo 
rere l es MP G0 TO IF WAS F 
7378 0320 004737 042344 a PC, CMPBUF G0 C WRITE, READ DATA BUFFERS 
3% 1 -WORD BUFONE+4 ;STARTING ADORESS OF WRITE BUFFER 
rot te woe PS wa meal 
D320e8 NOP SRETURN HERE IF ERROR 
03203 104 ERROR ‘ERROR # DEFINED BY CMPBUF SUBROUTINE 
013003¢ 137 032060 ome IMP 350$ :G0 TO 3S0$ IF ERROR WAS FOUND 
7886 0: 062737 o000200 001432 "ADD #128. , RMDCO ADVANCE TO NEXT THRESHOLD 
7o87 reap 0837 001432 001400 CMP RMOCO; #768. : DONE ?? 
101 BHI 350$ t YES! ! 
7389 032054 000137 031062 IMP 2s DO NEXT CURRENT LEVEL 
350S: 
Tee Nees 012737 031034 001122 MOV #10$, SLPADR ;LOOP BACK TO START OF TEST 
032066 012737 031034 001124 MOV #108’ SLPERR ; 
reae {:peeengnenunnanasseseeysseateresr ee eeeer tier wariodia 
7896 i jeeseedevsnenenseaeed REEKAARGEESAREAASREKRS RARER AAREAERAARRAA ARE HEAEE 
rea He o00004 : ; CALL 
7899 NOP i START OF Test 
1 eae 001100 MOV SSTACK, SP INITIALIZE STACK POINTER 
7901 104 013700 001276 MOV : RO=UNIBUS SS 
032110 013701 001446 MOV TSTQUE,R1 -(R1) = DEVICE BEING TESTED 
? 114 012737 000024 o01226 MOV #24, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
730 ; Ir ggemewar oe aT preemie crete 
7908 032122 10S: 
ee fi PREPARE THE DEVICE FOR FORMAT OPERATION 
HH g32122 004737 037260 JSR Ee TST -PREPARE DEVICE FOR TEST 
791 126 054130 054130 ;TASK DESCRIPTOR 
7913 032130 OOO404 20S -GO TO 20$ IF NO ERROR 
ogi 0321 3e NOP ;RETURN HERE IF ERROR 
1S 135 1 ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
7aig 038136 000137 033066 se IMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 
7918 . 
7919 LOAD PARAMETERS AND GENERATE DATA BUFFER 
7920 142 012737 000577 001432 MOV #383. , RMDCO ;CYLINDER = 383. 
Paso tee Bt TBEESO Doro NOY «SBUFORE RIBAO ie apoREsS > 
164 0127 1OE3Sq 001400 MOV #<4C< 286256. +2>>+1>, RMWCO WORD COUNT 
0321 Ole? 37 010000 001430 MOV #FMT16, RMOFO 16 BIT FORMAT 
032: 012737 000063 001376 : MOV #lWH! GO’ RMCS10 ‘WRITE HEADER AND DATA COMMAND 
7927 VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 


¥ 
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OZRMEA.P11 28-JUL-77 14:18" Te4 WRITE, CHECK W/ CURRENT LEVEL SWITCHING 


004737 040174 JSR : eee ;CALL BAD SECTOR MODULE 
TMSG 


Gees OR oy - retical? 
FB os ROR © EF INED BY SCT SUBROUTINE. 
Ben Roy 


SEQ 0156 


wok 


eh iRaNce OF PATTERN On 


JSR ;GO GENERATE BUFFER FOR FORMAT 
;LOAD PUT REGIS TER HOE TABLE FOR FORMAT OPERATIION 


, 





b Ol MOV Re sRe = BYTE ENTRY POSITION 
03225 is 55 NOVE wer (fe 
1322b¢ L368 MOVE - SRMNBA’ (Ro)+ 
D322 bE it MOVE RTM, (Re) + 
cree MOVB #RMOF 
TaD Sze L13768 HOVE @RMCS!. (R2)+ 
1le71 MO #200, (Re) ; TERMINATE TABLE 


;FORMAT THE DRIVE 
kA 043246 ey erur 3 ;GO WRITE REGISTERS WITH PUT SUBROUTINE 


PRREA SSSI SSL RRR aS oeseaamOEReOS Oe 


1 -GO TO 40$ IF NO ERROR 
14 9000240 NOP ;RETURN HERE IF ERROR 
032316 104000 ERROR ‘ERROR # DEFINED BY PUT SUBROUTINE 
032320 000137 033066 IMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
032324 40S: 
SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
032324 004737 0o42712 TSR on OES GO TO GETSTS SUBROUTINE 
;WAIT FOR THE ie TO COMPLETE 
032330 004737 043606 ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
GO READ STATUS FOR FORMAT OPERATION 
334 004737 042776 JSR PC.GET ;GO READ REGISTERS WITH GET SUBROUTINE 
340 000404 BR so$ -GO TO SOS IF NO ERROR 
2 o00240 NOP ; RETURN ERE IF ERROR 
4ouogg ERROR ‘ERROR ® DEFINED BY GET 
137 033066 aa IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
VERIFY NO ERRORS DURING FORMAT 
032352 004737 056276 JSR PC. DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
356 O0040S BR 60$ -GO TO 60$ IF NO ERROR 
032 ;RETURN HERE IF ERROR 
O3¢ rl ERROR ‘ERROR # DEFINED BY DTASTS SUBROUTINE 
032364 004736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 033066 a IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
;MOVE LOOP ADDRESSES TO NEXT OPERATION 
032372 012737 032410 o01122 MOV #70$, SLPADR 
032400 018737 032410 001124 MOV $708" SLPERR 
10 BR 80S ;SKIP TO WRITE OPERATION 
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DZRMEA.P11  29-JUL-77 14:18° T24 WRITE, WRITE CHECK W/ CURRENT CEVEL SWITCHING 
; Pg papery ot UO aaep eee yesennnr gan waetenmnoaean 
‘ (00P WRITE, READ 
032410 70S: 


;PREPARE DEVICE FOR WRITE OPERATION 
JSR Hae iPRE DEVICE FOR TEST 
. WORD Peay TASK DESCRIPT 
BR -GO TO 80S IF NO ERROR 


ERROR AUR Bea Ne STPRP reg te 


SCPC CP cies ROR Sree tc 
a 
: 


Ragigs 033066 IMP 350$ GO TO 3S0$ IF ERROR WAS F 
032430 120S: 
WRITE DATA TO THE DRIVE 
2 piers? 177000 001400 MOV 8<tC<2#256.>+1>,RMWCO ;CHANGE WORD COUNT 
1 106524 001402 MOV #BUF ONE +4. RMBAO CHANGE ADDRESS 
012737 000061 001376 MOV #WD!GO, RMCS10 ‘WRITE DATA COMMAND 
D3e452 01 MOV #PUTINX, Re LOAD PUT REGISTER INDEX TABLE 
pete MO » (Red 
B01 03°46E it 000032 MOVB ORNOF , (Re + 
: saace #RMBA 
50 1s ee 116765 nooooe MO SaMniG’ (RB) 
B14 1127¢e 000000 #RMCS1. (R2)+ - 
aC i ll 000200 MOVB #200, (Re) + ; TERMINATE TABLE 
B017 032512 004737 043246 ISR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
801 1 130s “GO TO 130$ IF NO ERROR 
801 000240 NOP sRETURN HERE IF ERROR 
104000 ERROR “ERROR # DEFINED BY PUT SUBROUTINE 
seh O3coe4 000137 033066 ime IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
goed ;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
032530 004737 o4e712 ISR PC, GETSTS ;GO TO GETSTS SUBROUTINE 
;WAIT FOR WRITE TO COMPLET 
Bee 032534 004737 042606 JSR Sen Nout TO TIMOUT SUBROUTINE 
40 737 042776 - cond * Pines EATEN sn W 
BO 3e 44 aoa BR 140s Go 10. ios f i NO ERROR 
8033 000240 NOP ; RETURN ier 
B03 404000 ERROR ‘ERROR # SFE INED BY OY CET SUBROUT INE 
137 033066 IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
sie? 032556 140S: 
;CHECK FOR ERRORS DURING WRITE OPERATION 
8039 032556 004737 043772 ISR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
8040 032562 0004 BR 1sds GO TO 150$ IF NO ERROR 
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DZRMEA.P11  29-JUL-77 14:18 T2e4 ww: WRITE CHECK W/ CURRENT LEVEL SWITCHING 

000240 —_— Were IF ERROR “ 
re Ecce Rt PE RAO 

137 033066 io JMP IF ERROR WAS FOUND 
poi7az 056276 : JR Pe ,gTasts 60 core Y RESULT OF DATA TRANSFER 

al 1 IF NO ERROR 

rity ERROR Mie BY DTASTS SUBROUTINE 

13 JSR PC, a(SP)+ CHECKS 

137 033066 oat IMP 350$ TO IF E WAS FOUND 

737 044624 one JSR PC, SECERR ;GO CHECK FOR 
ere eae Hare wanes 

NOP ; RETURN eRe F 
104000 ERROR RROR # DEFINED BY SECERR SUBROUTINE 
004736 JSR PC, a(SP)+ iO BACK FOR MORE ERROR CHECKS 
000137 033066 Satie IMP 350 ;GO TO 350$ IF ERROR WAS FOUND 
; CHANGE LOOP ADDRESSES 
013737 032654 001122 MOV slap $LPADR 
12737 032654 001124 MOV 

000410 BR ;SKIP TO NEXT OPERATION 


; "Da woeghawy * yamaneoce ecnenanaiwod cage sacra o manies ti 
190: 
PREPARE DEVICE FOR AD OPERATION 
004737 037260 5 TETPRP jPREPARE DEVICE FOR TEST 
0511130 BSaLs0 TASK DESCRIP 
pe alt 0 200$ IF NO ERROR 
; RETURN * ft. IF 
104000 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
000137 033066 IMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
240$: 
READ DATA FROM DEVICE 
012737 000051 001376 MOV #WCD!CO, RMCS1O ;READ DATA COMMAND 
12702 001533 MOV SPUTINX: Re ‘LOAD PUT REGISTER INDEX TABLE 
112722 000006 MOVB = BRMDA, (R2)+ 
il (RE) + 
i MO 8RMDC! (RO) + 
1 8RMBA, (RO) + 
112722 MOY BRMWC' (Re)+ 
il D00000 SRMCSI. (Re)+ 
1le712 000200 #200, (Re) 
004737 043246 JSR PC 





PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
;G0 TO 250$ IF NO ERROR 


: 
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DZRMEA 
DZRMEA. 
8097 032750 o0de40 NOP ; RETURN HERE IF ERROR 
5078 O3e75e 44009 ERROR : @ DEF INED BY SUBROUT INE 
80 137 033066 IMP 350$ :GO TO 3S50$ IF ERROR WAS FOUND 
Biot 4 
1 ;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
; 032760 004737 o4e712 ISR PC, GETSTS ;G0 TO GETSTS SUBROUTINE 
81 WAIT FOR pero TI TION To COMPLETE 
g1 032764 004737 043606 PET " GO TO TIMOUT SUBROUTINE 
8108 GO READ STATUS FOR RATION 
g10 032770 004737 042776 is Poscet 300 RE REGISTERS | WITH GET SUBROUTINE 
BT fase e Spe e4d sRETURN HERE IF _— 
Bile 033000 104000 ERROR “ERROR ® DEFINED BY GET SUBROUTINE 
Bil3 33002 000137 033066 IMP 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
8115 : 
8116 ;CHECK FOR ERRORS DURING READ OPERATION 
8117 033006 004737 043772 ISR PC. PRIERR ;GO CHECK FOR PRIMARY ERRORS 
8118 G5301¢ 000405 BR 270 GO 10 _e70s IF NO ERROR 
Bila ote Oeace ERROR iF RROR 8 THED BY PR IERR SUBROUTINE 
Biel 72 ISR PC, a(SP)+ GO BACK FOR CHECKS 
gle 137 033066 as IMP 350$ G0 TO IF ERROR WAS FOUND 
gic 004737 056276 : ISR PC DTASTS :GO VERIFY. 7 OF DaTA TRAN TRANSFER 
8125 rea DOE NOP neon: 
8127 404000 ERROR i PEROR # DEFINED BY CET CBTASTS SUBROUT INE 
8128 : 736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
Biles Gza04e 000137 033066 JMP 350s GO TO 350$ IF ERROR WAS FOUND 
8131 ; _— 
8132 033046 2908: 
8133 O3304% 004737 O44624 JSR PC, SECERR ;G0 CHECK FOR SECONDARY ERRORS 
Bie Gases boned BR, atts TOE SDR Son NO ERROR 
1 900240 NOP ; RETURN F 
8136 033056 104000 ERROR ‘ERROR ® DEFINED BY SECERR SUBROUTINE 
197 033060 004736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHECKS 
8138 133062 000137 033066 IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
8140 ane a 
8141 033066 
8142 Pert tae tare a rer t ialail 
gis TEST 25 WRITE. READ EARLY PEAK SHIFT 
sive } Tra laa 
81 EEE oo0004 ; SCOPE 
td S088 000240 NOP ;START OF TEST 
148 033072 012706 901190 HOV aSTACK, SP s INITIALIZE STACK POINTER 
th nee sas OO 001446 TSTQUE.R1 Te = DEVICE BEING TESTED 
g151 033106 012737 000025 001226 MOV es STESTN SET TEST NUMBER IN APT MAIL BOX 
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RMO3 TIONAL TEST, PART 3 Y11 30(1046) ¥ 1. pre 1s8 SEQ 
1 oe yuL-7? 14:18" Me. READ | EARLY ) — 
: fae Gl atac, RARER SEIU MD cokeeee ee mt eeacenel 
‘ (00P FORMAT, WRITE, READ 
033114 10S: 
033114 004737 "tho sen eR uz mae DEVICE FOR TEST 
G33169 Oo4130 woRo Oeil io ; TASK pedcriPr ane 
1 -GO TO 20S IF NO ERROR 
O33 000240 RETURN HERE IF ERROR 
033126 104000 ERROR ERROR ® DEFINED BY TSTPRP SUBROUTINE 
033130 000137 034110 IMP 350$ :GO TO 3S50$ IF ERROR WAS FOUND 
;LOAD PARAMETERS AND GENERATE DATA BUFFER 
033134 012737 o00000 001432 MOV 80, RMDCO ;CYLINDER = 0 
O331Ne 012737 000000 O01404 MOV #0; RMDAO ‘TRACK = 0, SECTOR = 0 
0331 Ole? 37 106520 001402 HOV OF ONE RHEAO > "BUS ADORE 
5 z , RMWC 
Pastea Bisel Arcane pote MOV ae ‘16 1F FORMAT 
033172 012737 000063 001376 MOV WH! GO, RMCS10 ‘WRITE HEADER AND DATA COMMAND 
VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
004737 040174 JSR PC, BADSCT ;CALL BAD SECTOR MODULE 
000405 est -GO TO 25$ IF NO ERROR 
133206 104401 066704 TYPE  ,SCTMSG TYPE BAD SECTOR MESSAGE 
O33e12 104000 ERROR & OE ieD BY BADSCT SUBROUTING 
g33e14 000137 034110 a IMP 350$ 0 350$ IF ERROR WAS FOUND 
ptee3e he BOLI : HOY #1 owe sree = + 
033234 004737 042100 JSR PC; GENBUF tg BUFFER FOR FORMAT 
LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
01 001533 MOV #PUTINX, Re :R2 = BYTE ENTRY POSITION 
ll 000034 MOVB BRNO, (Re) + 
11 000006 MOVB ” (RO)+ 
033254 112722 O00004 MOVB  SRMBA, (Re) + 
112722 o00002 MOVE SRMWC, (RO) + 
112722 000032 MOVB  BRMOF | (Ro) + 
112722 O00000 MOVB #RMCS1, (Re)+ 
033274 112712 000200 MOVE —- #200, (Re) TERMINATE TABLE 
033300 30S: 
FORMAT THE DRIVE 
033300 004737 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
033304 00404 40s -GO TO 40S IF NO ERROR 
933308 000240 NOP : RETURN IF ERROR 
10 104000 ERROR ? ERROR A INED BY PUT SUBROUTINE 
033312 000137 034110 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
033316 40S: 
SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
033316 004737 o42712 JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 





D13 


DZRMEA - RNO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 159 SEQ 0161 
DZRMEA.P11 29-JUL-77 14:18 T2S WRITE, REAO EARLY PEAK SHIFT 
;WAIT FOR THE FORMAT TO COMPLETE 
8210 004737 043606 ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
1 ;GO READ STATUS F 
ae 033326 004737 042776 re Po scet ;00 READ Thee GISTERS | WITH GET SUBROUTINE 
14% O333a32 OO0404 0 SOS IF NO ERROR 
sip Gee Peg6de BP BRIM, EEE AE PR SP ber SUBROUTINE 
8217 033340 000137 034110 IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
18 033344 SOs: 
; VERIFY NO ERRORS DUPING FORMAT 
1 033344 004737 056276 JSR PC, DTASTS ;G0 VERIFY TS OF DATA TRANSFER 
Beee 6933350 BR 60$ 0 60$ IF NO ERROR 
R223 ©6(03335e NOP ; RETURN lene Te 
a35¢ rR seRraR Span! nD OR checks 
N333SE JSR PC, a(SP)+ ;GO BACK CKS 
8226 033360 000137 034110 IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
8227 033364 60S: 
8228 
8209 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
033364 012737 033402 001122 MOV #70$, SLPAOR 
8231 033372 012737 O33402e 001124 MOV 70S, SLPERR 
Bese 033400 O00410 BR B0$ ;SKIP TO WRITE OPERATION 
8234 $ Deane oar oo rarearseever eursgewes cane str reece ne 
8235 :/00P WRITE, READ 
as 033402 70S: 
8238 
8239 
8240 ;PREPARE DEVICE FOR WRITE OPERATION 
8241 033402 004737 037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
Bove 033406 054130 .WORD 054130 ;TASK DESCRIPTOR 
8243 033410 OOO404 BR 80S -GO TO 80S IF NO ERROR 
Beye Baauis foso00 PRROR ath BeFuieo 61 ARF TPRP SUBROUTINE 
824% 033416 000137 034110 IMP 350$ TO 350% IF ERROR WAS FOUND 
8247 033422 80S: 
3248 
033422 120: 
;WRITE DATA TO THE ORIVE 
033422 012737 177400 001400 MOV #<4C256. 41>, RMWCO ;CHANGE WORD COUNT 
8254 30 012737 106524 001402 MOV #BUF ONE+4  RMBAO : CHANGE RODRESS 
8255 % O1 003061 001376 MOV #WD!GO, RMCS1O ; WRI TE DATA COMMAND 
8256 033444 Ole702 001533 MOV #PUTINX, Re “LOAD PUT REGISTER INDEX TABLE 
8257 033450 112722 000006 MOVB = SRMDA, (R2)+ 
8258 Pearl Lie7ee 000034 MOVB  § SRMDC, (Re) + 
825 11 000032 ‘ MOVB  SRMOF, (RO)+ 
8260 033464 112722 O00004 MOVB § SRMBA, (Re) + 
8261 033470 112722 o0000e2 MOVB  SRMWC, (Re)+ 
O33474 1ie?ee 000000 MOVB  aRMCSI, (R2)+ 
8263 11 000200 MOVB - #200, (Re)+ ; TERMINATE TABLE 


SEPTIC. 
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1 29-JUL-77 14:18" T25 WRITE, READ EARLY PEAK SHIFT 
033504 004737 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
0335 1 BR 130 582,70 130$ IF NO ERROR 
Ratet ; RETURN F 
133014 | E ‘ERROR ® DEFINED BY PUT SUBROUTINE 
000137 034110 ote IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
004737 oO42712 JSR PC,GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND TO COMPLETE 
004737 043606 ISR PC, TIMOUT ;G0 TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
004737 042776. J PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
000404 BR 140s -GO TO 140$ IF NO ERROR 
000240 NOP RETURN HERE I 
iowogg ERROR ERROR # OS PBB BY GET SUBROUT INE 
137 034110 athe IMP 350$ ERROR WAS FOUND 
CHECK FOR ERRORS DURING WRITE OPERATION 
004737 043772 ISR PRIERR GO CHECK FOR PRIMARY ERRORS 
tales BR TShs -GO TO 150$ IF NO ERROR 
NOP ;RETURN HERE IF 
104000 :E # DEFINED BY PRIERR SUBROUTINE 
004736 JSR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 034110 she IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
004737 056276 JSR PC. DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
000405 BR 160$ -GO TO [60S IF NO ERROR 
000240 ;RETURN HERE IF ERROR 
44000 ERROR ERROR ® DEFINED BY DTASTS SUBROUTINE 
7% PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 034110 as IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
170$: 
0n4737 o44624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
000405 BR 180$ -GO TO 180$ IF NO ERROR 
000240 ;RETURN HERE IF ERROR 
G336e0 104000 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
004736 ISR PC, a(SP)+ :GO FOR MORE ERROR CHECKS 
033624 000137 034110 JMP 350$ GO TO 350$ IF ERROR WAS FOUND 
033630 180S: 
CHANGE LOOP ADDRESSES 
033630 012737 033646 001122 MOV #190$, SLPADR 
012737 033646 001124 MOV 8190S, SLPERR 
033644 000410 BR 200$ ;SKIP TO NEXT OPERATION 
5 Dies ate” ie one een eee ack eae 
033646 190S: 
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DZRMEA.P11  29-JUL-77 14:18 T2S TE, READ EARLY PEAK SHIFT 
B32 PREPARE DEVICE FOR READ OPERATION 
004737 037260 ISR PC. TSTPRP *PREPARE DEVICE FOR TEST 
B23 1 . WORD 954130 TASK DESCRIPTOR 
BR -GO TO 200$ IF NO ERROR 
SSE NOP RETURN HERE IF ERROR 
BBD ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
562 (000137 034110 IMP 350$ :GO TO 3S0$ IF ERROR WAS FOUND 
 , Bcues — 
8330 033666 240S: 
READ DATA FROM DEVICE 
127 000071 001376 MOV #RD'GO, RMCS10 READ DATA COMMAND 
1 107530 001402 MOV #BUF TWO+4. RMBAO CHANGE BUFFER 
01 1533 MOV #PUTINX, Re ‘LOAD PUT REGISTER INDEX TABLE 
8336 112722 000006 MOVB =: SRMDA, (R2)+ 
le il o00032 MOVB  8RMOF, (Ro)+ 
R336 16 il 000034 MOVB RNC, (Re) + 
8335 ll 000004 MOVB @RMBA, (R2)+ 
B30 11 oo0002 MOVB  §SRMWC. (Ro)+ 
il 000000 MOVB  aRMCSI, (R2)+ 
a3 112712 000200 MOVB = 8200, (Re) 
03374: 737 043246 ISR PC.PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
033746 BR 250s -GO TO 250$ IF NO ERROR 
033750 NOP ;RETURN HERE IF ERROR 
B37 03375¢ 4owogg ERROR ‘ERROR # DEFINED BY PUT SUBROUTINE 
137 034110 IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
8349 033760 250S: 
gat ;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
033760 004737 o4e712 ISR PC, GETSTS :GO TO GETSTS SUBROUTINE 
8354 ;WAIT FOR READ OPERATION TO COMPLETE 
8355 033764 004737 043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
B37 GO READ STATUS FOR READ OPERATION 
033770 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
8359 033774 OOO4O4 260 -GO TO 260$ IF NO ERROR 
Bet Gos Tie SAU Bes 
1 o34000 i ERROR te # DEFINED BY GET SUBROUTINE 
8362 O34002 000137 O34110 JMP ;GO TO 3S0$ IF ERROR WAS FOUND 
ee CHECK FOR ERRORS DURING READ OPERATION 
8366 O34006 004737 043772 JSR PC. PRIERR GO CHECK FOR PRIMARY ERRORS 
8367 o34012 O0040s BR 270$ -GO TO 270$ IF NO ERROR 
8368 034014 NOP ;RETURN HERE IF ERROR 
8369 034016 104000 ERROR “ERROR ® DEFINED BY PRIERR SUBROUTINE 
8370 O32 004736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHECKS 
8371 000137 034110 fon JMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
6355 Baanse 004737 056276 ISR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
8374 034032 OO040S BR 2ets -GO TO 280$ IF NO ERROR 
8378 oaug 34 909240 NOP ;RETURN HERE IF ERROR 
1 ERROR ERROR # DEFINED BY DTASTS SUBROUTINE 
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DZRMEA.P11 29-JUL-77 14:18 Tes WRITE, READ EARLY PEAK SHIFT 5 
8377 





034040 004736 ISR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
g378 OWONe 000137 034110 _ JM sts ;G0 TO 3S0$ IF ERROR WAS FOUND 
~ai. 6 ? 

3381 Oa40N6 2930S: 
8382 004737 044624 JSR PC, SECERR GO CHECK FOR SECONDARY 
Sao Bauped bobedd pats “RETURN PERE SF ERROR MO ERROR 
ERROR “ERROR ® DEFINED BY SECERR SUBROUTINE 
JSR PC. a(SP)+ GO BACK FOR MORE CHECKS 
5387 137 034110 we 350 G0 TO IF ERROR WAS FOUND 
8385 042344 “ ‘JSR PC ;G0 WR TA 
opeea, WORD  BUPONE+4 _ "G SORT TNE’ ADDRESS OF WRITE BUFFER 
8391 107530 gHORD BUFT STARTING 8 ESS OF READ BUFFER 
1 poosad NOP sRETURN HERE IF 
es 102 104000 ERROR “ERROR ® DEFINED BY CMPBUF SUBROUTINE 

Peat tal 000137 034110 — IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 

ee 034110 350S: 
BiG0 ; . SET ROHR aT 
Bugs 034110 i teen reasener one param meer encane nema crate 
8403 034110 oO0004 : ; 
8404 O34112 o00240 NOP “START OF TEST 
840S 034114 012706 001100 MOV #STACK, SP ‘INITIALIZE STACK POINTER 
8406 034120 013700 001276 MOV SBASE : RO=UNIBUS 
8407 Gaile 013701 001446 ‘ MOV TSTQUE RI *(R1) = DEVICE BEING TESTED 
8408 130 012737 000026 O001226 MOV #26, STESTN SET TEST NUMBER IN APT MAIL BOX 
mit : ee nee ere dae ee 
g412 , ’ , 
eii3 034136 10S: 
8415 PREPARE THE DEVICE FOR FORMAT OPERATION 
euig 034136 004737 037260 JSR T -PREPARE DEVICE FOR TEST 
1 142 054130 .WORD 054130 ;TASK DESCRIPTOR 
8418 O34144 OO00404 BR 20S -GO TO 20S IF NO ERROR 
8419 14% 000240 NOP sRETURN HERE I 
Buco 159 44000 ERROR ERROR # DEFINED BY TSTPRP SUBROUTINE 
aie! Oa 15e 137 035132 IMP 350$ G0 TO IF ERROR WAS FOUND 
8423 . 
g4e4 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
8425 034156 012737 000000 001432 MOV #0, RMDCO ;CYLINDER = 0 
Bice 164 012737 000000 001404 MOV #0; RMDAO :TRACK = 0, SECTOR = 0 
By 034172 b1e737 106520 001402 MOV #BUF ONE , RMBAO BUS ADDRESS 
g428 034 12737 177376 001400 MOV #(4C<24256.>41>,RMWCO  ; COUNT 
8429 034206 012737 010000 001430 MOV #FMT 16, RMOFO 16 BIT FORMAT 
B30 034214 012737 000063 001376 MOV WH! GO; RMCS10 ‘WRITE HEADER AND DATA COMMAND 
8432 ;VERIFY SECTOR(S) NOT IN BAO SECTOR FILE 
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DZRMEA.P11 29-JUL-77 14:18" Te6 WRITE, READ MIXED PEAK SHIFT 


o34e22 004737 040174 JSR PC, BADSCT CALL BAD SECTOR MODULE 
034226 000405 25$ 


Bex ik Smee Ee 
E BY T eg ty 
000137 035132 _ JMP 380$ 0 3S0$ IF ERROR WAS FOUND 
B4e42 012737 067756 001174 : MOV SMIXED, STMPO nati ADDRESS OF PATTERN 


oars? feeioo ik PCS ReNBUF ICO 'GENERATE BUFFER FOR FORMAT 
RE 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
O34262 012702 001533 MOV #PUTINX, Re ;R2 = BYTE ENTRY POSITION 
38 115755 MOVB » (Bade 
115766 renee MOVB SNbA’ (RO) 
034302 112722 o00002 MOVB  SRMWC, (RO)+ 
034 il 000032 MOVB #RMOF. (Ro) + 
53431 il 000000 MOVB  #RMCSI, (R2)+ 
316 112712 000200 MOVB 8200, (Re) TERMINATE TABLE 
034322 30S: 
;FORMAT THE DRIVE 
034322 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
BR 40$ -GO TO 40$ IF NO ERROR 
0343390 NOP TURN ie IF ERROR 
ERROR i BRROR INED BY PUT SUBROUTINE 
034334 000137 035132 IMP 350$ GO TO 3S50$ IF ERROR WAS FOUND 


034340 40S: 


;SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
JSR PC,GETSTS ;GO TO GETSTS SUBROUTINE 


; 
: 
g 
S$ 
z 


;WAIT FOR THE romt TO COMPLETE 


034344 004737 043606 JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
350 737 042776 ears ee Be GET GO READ REG REGISTERS WITH GET TI 
ee so$ “180. 19 so IF 1P Ro ERROR 
356 NOP ;RETURN HE 
O3360 494009 ERROR ‘ERROR & BEE INED ae GET SUBROUTINE 
137 035132 IMP 350$ :G0 TO 3S50$ IF ERROR WAS FOUND 
034366 SOS: 
VERIFY NO ERRORS DURING FORMAT 
034366 004737 056276 JSR PC. DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
PER LC HE tale BR 60$ 500 TO 60S IF NO ERROR 
00240 NOP ;RETURN HERE IF ERROR 
634378 104 ERROR ?ERROR # DEFINED BY DTASTS SUBROUTINE 
ay JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
Gauge 000137 035132 a IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 


iiss SRRERPRRRR CA se satecaa trian reset esis iret 
anes 
28 


;MOVE LOOP ADDRESSES TO NEXT OPERATION 
034406 2737 O34424 001 MOV #70$, SLPADR 
O34414 012737 O344e4 001124 MOV #70$, SLPERR 


22 
SR 


2 
& 
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MACY11 30(1046) 29-JUL-77 TAR PAGE 164 
T26 WRITE, READ MIXED PEAK SHIFT 


BR 80$ ;SKIP TO WRITE OPERATION 
er 


LOOP WRITE , READ 
70S: 


Spine pe Be TSTPRP PR DEVICE FOR TEST 
Bo Bal nx oe 


WOO MO Ernon 


: RETURN he 
ERROR ‘ERROR ® DE rep. BY TSTPRP SUBROUTINE 
ao IMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 
120S: 


;WRITE athe TO THE DRIVE 


#< tC256.+1>, RMWCO ;CHANGE WORD COUNT 


+4. RMBAO i CHANGE 

MOV Het ;WRITE DA 
MOV #PUT INK, Re LOAD PUT REGISTER INDEX TABLE 
MOVB eRNDA, (Re) + 
Nove SANE? (ROD 

#RMBA; (RO) + 
MOVB = #RMWC’ (RO) + 
MOVB  &@RMCSI, (Re)+ 
MOVB = #200, (Re)+ ; TERMINATE TABLE 
JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 


g 


BR TO 130$ IF NO ERROR 
NOP ; RETURN HERE IF 
“ERROR # DEFINED BY PUT SUBROUTINE 
G0 TO 350$ IF ERROR WAS FOUND 


3 
& 


130$: 


;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
JSR PC,GETSTS ;GO TO GETSTS SUBROUTINE 


;WAIT FOR WRITE COMMAND TO COMPLETE 
JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


se. 
:GO READ STATUS FOR WRITE COMMAND < 
JSR PC.GET ;GO READ REGISTERS WITH GET SUBROUTINE 
BR 140s -GO TO 140$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
ERROR : ERROR . SED BY GET SUBROUTINE 
IMP 350$ TO 350$ IF ERROR WAS FOUND 


140$: 


;CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 


SEQ 0166 





vl 
rong 
“3 


a eed GLa 


pbb ee OO 
bm bo b= be be b= 
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~ 
m~w 
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035132 
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T26 WRITE, READ XED PEAK SHIFT 

BR 1S0s 89, 0. isos I IF NO ERROR 

BRROR Boge pe INED BY PRIERR INE 

JSR PC, 3(SP)+ OR At PEE RED BY PRL aietke _ 
coal IMP 350s 60°10 3808 If ERROR AS FOUND 

“ ‘JSR PC, DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 

Rp ; RETURN gee — 

ERROR ‘ERROR ® DEFINED BY DTASTS SUBROUTINE 

ISR PC, a(SP)+ GO BACK FOR MORE 
oe JMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
170$: 

JSR PC, SECERR GO CHECK FOR SEC 

180$ -GO TO 180$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 

JSR PC, a(SP)+ : GO FOR MORE ERROR CHECKS 

IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
180$: 
CHANGE LOOP S 


;SKIP TO NEXT OPERATION 
; Ta ye seca aay owt asawateangmce ronan meter ct 
1908: 
;PREPARE DEVICE FOR_READ OPERATION 
JSR STPRP 


“PREPARE DEVICE FOR IEST 
.WORD 054130 ;TASK DESCRIPTOR 


BR 200$ -GO TO 200$ IF NO ERROR 
NOP ; RETURN HERE IF ERROR 
ERROR ‘ERROR # DEF INED BY TSTPRP SUBROUTINE 
IMP 350$ G0 TO 350$ IF ERROR WAS FOUND 
2008: 
240S: 
;READ DATA FROM DEVICE fe 
MOV #BUF TWO+4. RMBAO ;CHANGE BUFFE 
MOV #RO!'GO, RMCS10 READ DATA COMMAND 
HOV sPUT NK Re “LOAD PUT REGISTER INDEX TABLE 
oy © Meee 
MOVB  §SRMBA;(Ro)+ 
MOVB  SRMWC. (Re) + 
MOVB  aRMCSI, (R2)+ 
MOVB #200, (Re) 
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OZRMEA.P11  29-JUL-77 14:18" T26 WRITE, READ MIXED PEAK SHIFT 
na JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
: i. sBRIVR FREE AE RT susnour 
Sb OC BRE oR y iBRAORs I SUBROUT INE 
Es 34778 000137 035132 mente IMP 3508 ” ;GO TO 350$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
035002 004737 o4e712 ISR PC, GETSTS ;GO TO GETSTS SUBROUTINE 
{ ;WAIT FOR READ OPERATION TO COMPLETE 
Bbi¢ 035006 004737 043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
; ;GO READ STATUS F AD 
geld 035012 004737 042776 ce Pesce BF C0 READ REGISTERS WITH GET SUBROUTINE 
8616 035016 900404 TO 260$ IF NO ERROR 
B61 000240 : RETURN HERE IF 
ig 104000 BEROR ‘ERROR ® DEFINED BY GET SUBROUTINE 
861 000137 035132 JMP 350$ GO TO 350$ IF ERROR WAS FOUND 
035030 2605: 
eo CHECK FOR E| DURING READ OPERATION 
035030 JSR PRIERR GO CHECK FOR PRIMARY ERRORS 
8624 035034 BR 270 “GO TO 270$ IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR rE # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
B6¢8 G35044 oa JMP 350 GO TO 350$ IF ERROR WAS FOUND 
8630 0350 a el PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
eB0s Go _T 
35056 NOP ;RETURN HERE IF 
035060 104000 : ERROR ‘ERROR # DEFINED BY DTASTS SUBROUTINE 
Bost 935062 bow JSR PC, a(SP)+ GO BACK FOR CHE 
137 035132 JMP 350$ G0 TO IF ERROR WAS FOUND 
Boe 035070 280S: 
290: 
ee rene pou? 32 044624 JSR PC, SECERR :G0 CHECK F FOR. ERRORS 
M BR 300$ IF NO ERROR 
eos i ERROR EER URN ibs BY SECERR SUBROUTINE 
BG 10e 004736 PC, a(SP)+ MORE ERROR CHECKS 
ae 19 000137 035132 ate IMP 350$ eat * TO 350$ IF ERROR WAS FOUND 
Sue tio 737 042344 JSR PC, CMPBUF GO COMPARE WRITE, READ DATA BUFFERS 
BH? 035114 106524 BUF ONE +4 ;STARTING ADORESS OF WRITE BUFFER 
0351 Jb WORD BUF TWO+4 STARTING ADDORE READ BUFFER 
8649 0351 BR os *GO TO 310$ IF 
86 035 122 ;RETURN HERE IF ERROR 
8651 124 104000 ERROR : ERROR . DEF INED BY CMPBUF SUBROUTINE 
8652 126 000137 035132 JMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
8653 132 310S: 
8655 035132 350$: 
8656 : 5 RRA EARLE EEE EA LEAR ERLE ARLE REEL EEE A REEL REAR EERE REESE SE 


SERUSELIRELRERIRRTRE PETER ITEP TEE aa 


BIRRLOV= 


Sosa eGRSSS 


hn be 
Muro 


888 
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Pll 29-JUL-77 14:18 T WRITE, RE poke TRACK A ee 
;#TEST 27 WRITE, TRACK 
} eet ee ee ere 
x 8 
ei 900004 SCOPE ;SCOPE CALL 
0351 NOP START OF TEST 
035136 012708 901 190 MOV SSTACK, SP ‘INITIALIZE STACK POINTER 
142 Ol 1276 MOV SBASE * RO=UN ADDRESS 
035146 013701 001446 MOV TSTQUE RI *(R1) = DEVICE BEING TESTED 
0351S2 012737 000027 o01226 MOV #27, STESTN ::SET TEST IN APT MAIL BOX 
33 SKK KERALA AA SAAR AAA AAA AAA A RRA RRA RRRER AER ERR REEES 
LOOP #1 FORMAT , WRITE , READ 
035160 10S: 
PREPARE THE DEVICE FOR FORMAT OPERATION 
035160 004737 037260 JSR TSTPRP “PREPARE DEVICE FOR TEST 
pea 054130 . WORD 954130 TASK DESCRIPTOR 
1 BR -GO TO 20S IF NO ERROR 
170 000240 NOP RETURN HE 
172 104000 ERROR ‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
174 000137 036176 i IMP 350$ G0 TO 3S0$ IF ERROR WAS FOUND 
LOAD PARAMETERS AND GENERATE DATA BUFFER 
935200 012737 000000 001432 MOV #0, RMDCO CYLINDER = 0 
012737 000000 001404 #0’ RMDAO ‘TRACK = 0, SECTOR = 0 
4 ble737 106520 001402 25%: MOV. ~ sBUFONE, RMBAO BUS ADDRESS 
01 1 001400 MOV 8<4C<(24256.>41>,RMWCO  ;WORD COUNT 
035230 012737 010000 001430 MOV #FMT16, RMOFO 16 BIT FORMAT 
035236 012737 000063 001376 MOV 8H! GO, RMCS1O ‘WRITE HEADER AND DATA COMMAND 
;VERIFY SECTOR(S) NOT IN BAD SECTOR FILE 
004737 040174 ISR PC, BADSCT CALL BAD SECTOR MODULE 
00040S BR 26$ “GO TO oes IF NO ERROR 
19440} 066704 TYPE _, SCTMSG ;TYPE BAD SECTOR MESSAGE 
rl ERROR “ERROR # DEFINED BY BADSCT SUBROUTINE 
000137 036176 we IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
012737 067756 001174 MOV #MIXED, STMPO ;STARTING ADDRESS OF PATTERN 
012737 000200 001176 MOV #128. $TMP1 “RANGE OF 
904737 o42100 ISR PC, GENBUF ‘GO GENERATE BUFFER FOR FORMAT 
LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
012702 001533 MOV SPUTINX, R2 Re = BYTE ENTRY POSITION 
10 11 000034 MOVB = BRMDC, (R2)+ 
4 11 000006 MOVB  #RMDA; (Re) + 
11 000004 MOVB = SRMBA; (Re) + 
112722 000002 MOVB = BRMWC; (Re) + 
11g? 000032 #RMOF (Re) + 
11 990006 MOVE #RMCSI, (Re)+ 
11271 MOVB #200, (Re) ; TERMINATE TABLE 
035344 30S: 


;FORMAT THE DRIVE 
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OZRMEA.P11  29-JUL-77 14:18 127 WRITE, READ EACH 
8713 035344 004737 043246 ISR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
8714 035350 OO0404 BR 4o$ -GO TO 40S IF NO ERROR 
aie Beeseq T8a600 ERR RETIN TE ED ee 
1 ERROR : # DEFINED BY PUT SUBROUTINE 
17 035.356 000137 036176 IMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
1 40S: 
SETUP GET REGISTER INDEX TABLE FOR READING STATUS 
8721 035362 004737 042712 JSR PC, GETSTS GO TO GETSTS SUBROUTINE 
He ;WAIT FOR THE FORMAT TO COMPLETE 
B7e4 035366 004737 043606 JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
-GO READ STATUS F 
8555 035372 004737 042776 2 18R Poa ? i AO READ Rec GISTERS. WITH GET SUBROUTINE 
8728 035376 OO0404 BR 0 SOS IF NO ERROR 
388 EN A ALi BY GET SUBROUTINE 
87 G3sH04 000137 036176 IMP 350$ 0 350$ rr ERROR WAS FOUND 
410 SOS: 
;VERIFY NO ERRORS DURING FORMAT 
035410 004737 056276 ae PC, DTASTS ;GO VERIFY RESULTS OF paTA TRANSFER 
Pe pele eG serum fe telat ne 
1 ! ARROR on jERROR 4 DEFINED BY DTASTS SUBROUT INE 
a ea B84 38 036176 oi TRE Bead : ~~ 1h SES PF RHEE Bas FOUND 
arqs ; 
na ; i Po ;MOVE LOOP eer sree OPERATION 
Paedae 815535 Beeude BBL ISE 
Bre 035444 000410 ;SKIP TO WRITE OPERATION 
arg ; 2° enneceegr hao Reamer demeetener ne ateeeiy ui maa: 
: (00P WRITE, READ 
8750 
Brel 035446 70S: 
8753 
PREPARE DEVICE FOR WRITE OPERATION 
737 037260 ISR PC, TSTPRP “PREPARE DEVICE FOR TEST 
4130 -WORD 054130 ;TASK DESCRIPTOR 
BR 80S -GO TO 80$ IF NO ERROR 
456 000240 NOP ;RETURN HERE IF ERROR 
404000 ERROR ‘ERROR # DEF INED BY TSTPRP SUBROUTINE 
137 036176 IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
eres 035466 80S: 
8 
8764 035466 1205: 
BOEE WRITE DATA TO THE DRIVE | 
8767 012737 106524 001402 MOV #BUF ONE+4, RMBAO CHANGE BUS ADDRESS 
8768 035474 012737 177400 001400 MOV #<¢C256.+1>, RMWCO :CHANGE WORD COUNT 
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DZRMEA.P11 29-JUL-77 14:18 127 WRITE, READ EACH T 
8769 012737 000061 001376 MOV 8WD!GO, ca WRITE DATA COMMAND 
8770 035510 012702 001533 MOV #PUTINX Re LOAD PUT REGISTER INDEX TABLE 
Bees {188 cea Hove (Beds 
il MOVB § SRMOF, (R2)+ 
il 30006 MOVE SRMBA, (R2)+ 
i * HOVE SRMWC’ (RO)+ 
‘ eRMCS1, (Re)+ 
035544 11 MOVE 8200, (Re) + TERMINATE TABLE 
035550 004737 043246 JSR PC,PUT ;GO WRITE REGISTERS WITH PUT SUBROUTINE 
S404 BR 1308 TO 130$ IF NO ERROR 
NOP ; RETURN ier 
104000 ERROR ‘ERROR # DEFINED BY PUT SUBROUTINE 
000137 036176 ee IMP 350$ TO 350$ IF ERROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 
035566 004737 o4e712 ISR PC, GETSTS GO TO GETSTS SUBROUTINE 
;WAIT FOR WRITE COMMAND TO COMPLETE 
035572 004737 043606 ISR PC, TIMOUT GO TO TIMOUT SUBROUTINE 
;GO READ STATUS FOR WRITE COMMAND 
S76 004737 042776 JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
o00404 BR 140s -GO TO 140$ IF NO ERROR 
opde40 NOP ;RETURN HERE IF ERROR 
1 ERROR ERROR @ OFF IND BY GET SUBROUT 
000137 036176 ian IMP 350$ GO TO 3S0$ IF ERROR WAS FOUND 
BC CHECK FOR ERRORS DURING WRITE OPERATION 
BC : 904737 043772 JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
Bi - 0S BR 150s -GO TO 1SO$ IF MO ERROR 
be2 6000240 NOP ;RETURN HERE IF ERROR 
0366¢ ERROR *ERROR ® DEFINED BY PRIERR SUBROUTINE 
: 035608 36 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
B06 035530 137 036176 SE 350$ ;GO TO 3S0$ IF ERROR WAS FOUND 
808 O35. po4737 056276 JSR PC, DTASTS GO VERIFY RESULTS OF DATA TRANSFER 
609 0356 BR 160$ -GO TO 160$ IF NO ERROR 
0356 oge40 NOP RETURN HERE IF ERROR 
0356 ERROR ‘ERROR # DEFINED BY DTASTS SUBROUTINE 
D3S64E 736 JSR PC. a(SP)+ GO BACK FOR MORE ERROR CHECKS 
3: 137 036176 seo JMP 350$ :GO TO 350$ IF ERROR WAS FOUND 
170$: 
004737 o44624 JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
reales 180$ GO TO 1 F NO ERROR 
;RETURN HERE IF 
104000 ERROR ‘ERROR # DEFINED BY SECERR SUBROUTINE 
004736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
137 036176 : IMP 350$ GO TO 350$ IF ERROR WAS FOUND 
035674 180S: 


8833 
8834 
8835 
ee? 
ea9 
8840 
ees 
8e44 
8845 
8846 
Bua 
8849 
8850 
88S4 
6855 
88S6 
8857 
Bee8 
8860 
8861 
eaed 
8864 
8865 
8866 
8867 
8868 

9 
8871 
8872 
8873 
8874 
8875 
8877 
8878 
8879 
8880 


TEST, PART 3 
14:18 


; oe 


Oo 
& 
é 


? 
rT 
™N 
_ 
a 
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;CHANGE LOOP ADDRESSES 
MOV #190$, SLPADR 
MOV #190S, SLPERR 
BR 200$ ;SKIP TO NEXT OPERATION 


H Fee ee Meee terre ee 
190S: 
;PREPARE DEVICE FOR READ OPERATION 
ISR PC TSTPRP . DEVICE FOR TEST 
-WORD 054130 ;TASK DESCRIPT 
2008 -GO TO 200$ IF NO ERROR 
RETURN HERE IF ERROR 


;ERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 3S0$ IF ERROR WAS FOUND 


s 
4 


333" 


240$: 


;READ DATA FROM DEV 
nov ta (hoe, a ia ‘READ DA CORRERD 


SPUTINK, Re LOAD PUT REGISTER INDEX TABLE 


‘ 
(RE) 
(Re) 
(Re) 


60 RITE FESISTERS ITE PRU 


RETURN HERE IF ERROR 
‘ERROR # DEFINED BY PUT SUBROUTINE 
a G0 TO 350$ IF FRROR WAS FOUND 
;SETUP REGISTER INPUT BUFFER FOR READING STATUS 

ISR PC, GETSTS GO TO GETSTS SUBROUTINE 


;WAIT FOR READ OPERATION TO COMPLETE 
JSR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR READ OPERATION 
JSR PC,GET ;GO READ REGISTERS MiTM GET SUBROUTINE 


F NO ERROR 
;RETURN HEP IF 


ERROR ;ERROR # DEFINED BY GET SUBROUTINE 
JMP ;G0 TO 3S0$ IF ERROR WAS FOUND 


age ne eSesssa~ 


;CHECK FOR ERRORS DURING READ OPERATION 
JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
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‘ 
“I 
: 





5056 O00405 BR 270 -GO TO 270$ IF NO ERROR 
336060 000240 NOP jRE F ERROR 
13606 4ono00 ERROR “ERROR ® DEFINED BY PRIERR SUBROUTINE 
SOE JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
36066 000137 036176 site IMP 350s ;GO TO 350$ IF ERROR WAS FOUND 
136072 004737 056276 " ‘JSR PC,DTASTS  —«;G0 VERIFY RESULTS OF DATA TRANSFER 
oats igo. F NO ERROR 
1 ROP ; RETURN F 
1 104 ERROR ERROR 8 DEF BY OTASTS INE 
104 7% SSR PC. a(SP)+ G0 BACK Fi 
108 000137 036176 IMP 350$ 60°10 3608 IP ERROR WAS FOUND 
ll2 280: 
its 2390S: . 
it 004737 044624 ISR PC,SECERR ;G0 CHECK NE oR PEORS , 
123 ODeG ERROR fc 8 OEFI ir ero INE 
Fs GON? 36 ISR PC, a(SP)+ ms ee NORE Leia ie ae 
1 137 036176 ol IMP 350$ ;G0 TO 350$ IF ERROR WAS FOUND 
Es 042344 " ‘JSR PC, CMPBUF :G0 WR DATA 
Sie RE Bo GeGERF 6 WP AT SD BP re 
036140 107530 “WORD  BUFTWO+4 OF READ BUFFER 
036142 00404 BR 3108 iB a NOS oF i fe ERROR 
036144 o0024C NOP ;RETURN HERE IF ERROR 
036146 104000 ERROR ERROR & FE ED BY CMPBUF SUBROUTINE 
036150 000137 036176 saat IMP 350$ ;GO TO 350$ IF ERROR WAS FOUND 
036154 062737 OO0400 001404 "ADD #400, RMDAO ;ADVANCE TO NEXT TRACK 
ete 0 002037 001404 CMP #2037 , RMDAO ;DONE? ? 
172 000137 035214 IMP 25$ “TEST NEXT TRACK 
036176 350S: 
036176 012737 035160 001122 MOV #10$, SLPADR ;LOOP BACK TO START OF TEST 
036204 012737 035160 001124 MOV #10$'SLPERR 


;PUT NEWTEST HERE 
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DZRMEA.P11  29-JUL-77 14:18 127 WRITE, READ EACH TRACK ; 
SEOSP: 
000240 NOP 
013700 001446 MOV TSTQUE, RO in 
85. id 1446 Rav RO UE 
Bc TST (RO) 
8926 1 BEQ 1$ 
Bop 37 artes 001446 1 sv Wo sD +2, TSTQUE 
ea tS eTTL END OF paee RoE T The 
8931 


ss SERGE SESE 36-36 Je HE SE SE SEE SEE SESE SE SE SE He AEE EE J SE SH HE He EERE 


a 
\) 





aC :& THE PASS ($PASS) 
393 tS TYEE “END Phas’ woo BE AL NURBER OF ERRORS SINCE LAST REPORT YyYYY™ 
8934 *HWHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
8935 #IF THERES A MONITOR GO TO IT 
83% IF THERE ISN’T JUMP TO READY 
8936 SEOP: 
393° 000240 NOP 
8940 005037 001116 CLR $TSTNM ;;ZERO THE TEST NUMBER 
beady poag3? 1 LR TIMES He THE BOF ITERATIONS 
l NC ss NUMBER 

8943 042737 100000 001230 BIC #100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
B44 00$327 DEC (PC)+ ; ;LOOP? 
8945 000001 SEOPCT: .WORD 1 
8946 003063 BGT SDOAGN : YES 
8947 012737 MOV (PC)+,a(PC)+  }3RESTORE COUNTER 
ea hee SENOCT: super 

104401 036314 TYPE 65S ;; TYPE ASCIZ STRING 
8951 000407 BR 4§ - GET T 12 
B33 igs: ASCIZ <12><15>/END PASS’ #/ 
g3s4 01374 001230 MOV SPASS, -(SP) ;;SAVE SPASS FOR TYPEOUT 
Bgep 2 104405 TYPDS :?60 SF VPES DECIRAL ASCII WITH SIGN 
8957 104401 036346 TYPE 67S + TPE ASCIZ STRING, 
Baeg i875: ASCIZ / TOTAL ERRORS SINCE cnet ReBoR 7 
Soe 0137% 001126 MOV SERTTL,-(SP)  ;;SAVE SERTTL FOR TYPEOUT 
B3b¢ :: TOTAL NUMBER OF ERRORS 

14 104405 TYPOS *:G0 TYPE--DECIMAL ASCII WITH SIGN 
8964 16 104401 001217 TYPE SCRLF *: TYPE CARRIAGE RETURN, LINE FEED 
8965 036422 b0s037 001126 CLR SERTTL *:CLEAR ERROR TOTAL 
8966 036426 O01 2 SGETY2: MOV as42, RO ::GET MONITOR ADDRESS 
244 5 BEQ SDOAGN ::BRANCH IF NO MONITOR 
RESET ;;CLEAR THE WORLD 
8370 G3e490 DOOSHD OO ioe VE -ROOM. 
8971 O36442 000240 NOP : FOR 
8376 000240 NOP ?:ACT1I1 
SDOAGN: 

8974 000137 JMP a(PC)+ ; ; RETURN 
8975 036450 006742 SRTNAD: .WORD READY 
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DZRMEA.P11 29-JUL-77 14:18 END OF PASS ROUTINE 

8976 036452 377 377 OOO SENLL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 

8977 036456 - EVEN 
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DZRMEA.P11 29-JUL-77 14:18" SUBROUTINES ; 


-SBTTL SUBROUTINES 


H + SELKEEEEESELEARSRARSAEEA RE REESE ALHRAARELAA REEL RARER AAREL HARE ES 
*SBTTL ERROR TYPEOUT ROUTINE 


eT RY INE_ASSEMBLES AND PRINTS INFORMATION 
EGON THE ON OF AN ERROR AS FOLLOWS: 


NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 


HIPRINTE® on Te iret LIN 
coh resent {t faseveue, FORMATTED AND PRINTED ON 


8980 
8981 
gsa2 
2983 
8984 
8985 
Bon 
8989 FONE OR’ MORE 
8990 1% . PAIRED LINES OF ERROR HEADERS AND ERROR DATA 
£99 #ARE PRINTED AFTER THE ERROR MESSAGE. 
a3 036456 ERRTYP 
8994 036456 104414 SAVREG 
BS55 eae 032777 020000 142466 BIT SH13, , aSWR ; INHIBIT TYPEOUTS?? 
e338 eta 037206 IMP 21 *YESI! 
8998 -TYPE UNIT NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
8999 O36474 104401 001217 Is: TYPE  ,SCRLF 
3000 104401 037222 TYPE ERTYOO TYPE “UNT#” 
9001 036504 013746 001234 $UNIT, -(SP) Hina SUNIT FOR TYPEOUT 
ae 036510 104403 TYPOS 
9004 036512 003 .BYTE 3 eon ie 
Beery posta? tre g 
14 037212 CLR STNMB 
036520 013737 001226 037212 MOV STESTN, TSTNME 
9008 036526 104401 30 TYPE ERT “TSTs" 
3003 036532 01374% 037212 MOV TSTNMB, -(SP) SAVE TSTNNG FOR, FOR TYPEOUT 
9011 03653 104403 TYPOS + G0 PEO A ASCII 
9012 003 .BYTE 3 *TYPE 3 DIGIT(S) 
9013 036541 000 "BYTE 0 :  CUPPRESS LEADING ZEROS 
9014 036542 005037 CLR ERRNMB ;COAD ERROR NUMBER FOR 
9015 036546 113737 001130 037214 MOVB  SITEMB,ERRNMB ;TYPEOUT 
3018 Gabe4 001406 BEQ 2s UP 2 IF NO ERROR CALLED 
301 104401 TYPE ERTYO2 TYPE “ERR&” 
2018 036562 01374 037214 MOV ERRNMB, - (SP i; SAVE ERRNME FOR TYPEOUT 
one 036566 104403 T ::G0 - I 
9021 036570 003 -BYTE 3 :: TYPE 3 DIGIT(S) 
age 636571 900 "BYTE 0 : 
104401 037247 2s: TYPE ERTYO3 : TYPE “PC= 
9024 036576 013746 001132 MOV SERRPC, -(SP) ;;SAVE SERRPC FOR TYPEOUT 
age $3 PROGRAM COUNTER 
036602 104403 TYPOS :GO =-OCTAL ASCII 
9027 036604 006 .BYTE 6 ;;1YPE 6 DIGIT(S) 
2068 036605 001 “BYTE 1 LEADING 
“GENERATE POINTER TO ERROR TABLE" "OME NUMBER IS 0 
8030 036606 005737 037214 4S: TST ERRNMB WAS AN ERROR CALLED? 
3031 036612 001575 BEQ 21S ENO?! 
036614 104401 001217 TYPE SCRL YES-TYPE CRLF 
9033 036620 105037 2 CLRB BOTFLG ‘CLEAR BOT FLAG 


—_— 
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DZRMEA.P11  29-JUL-77 1 ERROR TYPEOUT ROUTINE 
Fal 96604 405037 sre CLRB § CHRCNT ;CLEAR CHARACTER COUNTER 
14 MOV ERRNMB, RO *RO POINTS TO FIRST OF 
36E 106300 ASL RO sFOUR ENTRIES IN ERROR 
ASL R0 
ASL RO 
ADD 8SERRTB-8. ,RO 
MOV (RO), RL iRd POINTS TO ERROR MESSAGE 
+] 
Q 13$ *BRANCH IF NO ERROR MESSAGE 
TYPE THE ERROR MESSAGE 
2102 4 V (R1)+,R2 sR2=ADDRESS OF MESSAGE STRING 
1505 Q 125 “BRANCH IF END OF. NE SSAGE 
010237 MOV Re, 11 i080 ADDRESS OF S 
003037 037216 CLR TADR Bg! 
il cs (R2)+,R3 OF STRI 
001454 BEQ 0$ nt 
000015 CHP ACR, RB ;CARRIAGE RETURN? ? 
037221 CLRB §- CHRCNT ?YES-CLEAR CHAR COUNT 
we BR sj il NEXT CHARACTER 


ae 

S41 

a 

es 
aa 
S 

He 

e 

Q 

= 


: YES-GE REXT CHARACTER 
SRR CONTA TAB? ? 


BNE 
037221 7$: INCB CHRCNT ADJUST CHARACTER COUNT 
000007 037221 BITB ee CHRCNT 


SRRRRR 
paatens 
BE 
253 
sae 
23 


g 
3 
8 
x 


BNE 
BR 9$ 
Seah 8$: INCB CHRCNT ; INCREMENT CHARACTER COUNT —-. 
CMPB 8’ ,R3 ; SPACE?? 
MOV 


Ove ADDRESS OF SPACE 
037221 9S: CMPB  s-&#64. , CHRCNT Le OF LINE?? 


GET ADDRESS OF LAST 
BRANCH IF SPACE DETECTED. 


R 
# 
R 
s 


BER E RS 
AeFTue 
8=sn-8 
aseaie 
g Bg 
s 8 
=e 
Bae 
§ .38 
B@ 2S 


774 14NOL 001217 TYPE SCRLF ; TYPE 
1 037221 CLRB  CHRCNT Glen chaRc CHARACTER COUNT 
° bree 115, Re SET UP Re FOR TESTING 
18 i 30$ CLRB = = (R4) ; REPLACE 
4 116737 177777 037220 MOVE  #-1, BOTFLG ;SET BOT FLAG 
104401 10$: TYPE : TYPE MESSAGE STRING 
000000 11S: . WORD ‘STRING ADDRESS GOES HERE 
105737 037220 TSTB  §BOTFLG ; WAS STRING TRUNCATED?? 
001707 4§ :NO!! 
104401 001217 TYPE SCRL :YES-TYPE CRLF 
1 CLRB § BOTFLG “CLEAR BOT FLAG 
1 037221 CLRB § CHRCNT “CLEAR CHARACTER C 
013702 037216 MOV BOTADR, Re ‘SETUP Re FOR TESTING 
Barnee fishes paansO MOVE ae stra) ise TWP its foe Wpine 
037064 105722 TSTB Ss (R234 Ree TORE Re 
cs TYPE REST OF STRING 


: 


12S: 
; TYPE ERROR HEADER AND ERROR DATA 








: 


gsaaceanas | 


fel Gos Ioeeeeunoes coane S 


SSBQRREOR BBB VERPOR VS Seen Fon SSBVeREGUHS 
z 


8 


bo 0 bb 0 bb 8 bb bb 0 = 9 0 8 bb bb bb be be be ee 


WWD DWKDWDVDWVWDVDOVOWWO OVW VDOWWODVVOWOWOOWDOWVWOWVOWWNWWWWWW 


£= 
-_ 


FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 176 SEQ 0178 
29-JUL-77 14:18 ERROR TYPEOUT ROUTINE 
138: 
016001 oo0002 2(RO),R1 Rl POINTS TO ERROR HEADER TABLE 
1444 BEQ 21$ BRANCH IF NO HEADER 
1 001217 TYPE SCRLF : (ASSUME NO DATA) 
b1e003 000006 my RS POINTS 10. FORMAT TABLE. 
{ 1 neigee 14S: NOV Ride ies : PUT RODRESS FOR TYPE 
001433 BEQ 21$ ;BRANCH IF END OF HEADERS 
: (ASSUME END OF DATA) 
104401 TYPE 
000000 15$:  .WORD O ;HEADER ADDRESS GOES HERE 
AOWO} 001217 TYPE SCRLF 
TST Re ;DATA WITH HEADER?? 
001767 14$ :NO!! 
012204 (R2)+,R4 *R4 POINTS TO DATA ADDRESS 
012305 MOV (R3)+/RS *RS POINTS TO FORMAT 
105725 16$:  TSTB (RS)+ ‘WHAT KIND OF DATA?? 
100407 BMI 18$ : 
001403 BEQ 17$ :OCTAL 
013446 3(R4)+,-(SP) DECIMAL 
10440S TYPDS 
BR 19$ 
17$: MOV a(R4)+,-(SP) 
1 TYPOC 
ooo40e gR 19S 
013446 18$: MOV a(R4)+,-(SP) 
TYPBN 
i4 19: TST (RY) ;MORE DATA?? 
1403 BEQ 20$ :NO!! 
104401 037255 TYPE jERTYON : YES- TYPE 2 SPACES 
101 001217 208: TYPE SCRLF : TYPE ONE BLANK LINE 
2 14 ‘BEFORE NEXT HEADER 
104415 21$:  RESREG 
000207 RTS PC 
.WORD 0 ; TEST NUMBER 
“WORD 0 : NUMBER 
“WORD 0 ‘BEGINNING OF TEXT ADDRESS 
‘BYTE 0 ?BOT FLAG 
“BYTE 0 CHARACTER COUNT 
-ASCIZ @UNIT#@ 
“ASCIZ a, TEST#d 
-ASCIZ a, ERR# 
ASCIZ a, PC= 
AScIZ a a 
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OZRMEA.P11  29-JUL-77 14:18 TEST PREPARATION MODULE : 
14 .SBTTL TEST PREPARATION MODULE 
a4 : A H ROS SUBSYSTEM FO YSTEM FOR THE FIELD OF A TE TEST, 
glue : Serie Mh ad nto BE pirat WHICH THE EROOE ABoure EY ECUTE 
9148 ‘ 
9149 ; CALL: 
3150 : JSR PC, TSTPRP 
a1e2 Pee RETURN HERE. TF NO_ERROR 
ates : NOP + RETURN HERE a ERROR 
3154 : ERROR ERROR DEFINED BY MODULE 
1 ; TASK/VERIFY DESCRIPTOR 
ates : Bt gS 1 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
3158 : BIT 1 =] ; NTROL 7p SELECT DEVICE 
3186 : Bt 13 =1 Seaneacehnes NE UME NOT VALID 
161 : BIT 11 =1 RECALIBRATE IF POSITIONING IN PROGRESS 
9162 : BIT 10 
3163 : BIT g 
ated : Bt : 
9166 : BIT6 =1 VERIFY CONTROLLER CLEAR OPERATION 
9167 : BIT S (RESERVED FOR DRIVE CLEAR) 
9168 : BIT 4 =1 VERIFY PACK ACKNOWLE 
$169 : BIT3 =1 VERIFY RECALIBRATION 
9170 : BIT 2 
He | Ed 
9173 bas 
aid 037260 TSTPRP: 
9176 ;STORE TASK DESCRIPTOR AND CLEAR USER’S ERROR CALL 
9177 017637 000000 040172 MOV a(SP) .SO0S ;STORE DESCRIPTOR 
9178 037266 062716 OO0006 ADD #6, (SP) "MOVE SP TO USERS ERROR CALL 
3173 108076 CLRB a SP) : CLEAR 
1 162716 O000C SUB #4, (SP) 
9181 ; scoeune nobguamabet vcaeedanmentoestetoostenevtamedetanenaial 
91 s uETECT "en aad DEVICE SALLE IF Fei 1S SET IN TASK 
aim) GRPATG Biya; 100000 oouze or 
9185 312 004737 OSO466 aed PC Weal GO SELECT DEVICE 
3186 000411 BR 30$ *NO ERROR - CONTINUE 
91 000401 BR 20$ 
2188 037 382 10S: . WORD ;ERROR NUMBER FROM DEVSEL 
1 16 205: ADD #4, (SP) TRANSFER ERROR TO USER 
9190 037330 113776 037322 oo0000 10$, a(SP) 
9191 037336 000137 O40160 JMP 400$ 
3132 037342 30S: 
3194 = SRELLSGEE LER R ARREARS KSA E AERA AAR A RARER RARER ARE LE RAKES 
sige ? 737 O40000 040172 CLEAR rT ULE TT14 S00S a “Tee TOBNTROLLER?? 
gigs fa58e5 B8T4 Bea «BOS 





wow 
a 
B8 


Seas nneanee 


Rett at 
WONT U-L Wl 


ba Re a be pe 


s 


B 
= 


§ 


eee MME TEED TEBE MB SSO 
= 
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1 29-JUL-77 14:18’ TEST PREPARATION MODULE 

004737 052140 ISR PC, CNTCLR ;GO CLEAR CONTROLLER 

000411 BR bos ‘CONTINUE - NO ERROR 
40S:  .WORD ERROR NUMBER FROM CNTCLR 

be? 16 000004 SOS: ADD #4, (SP) ‘TRANSFER ERROR TO USER 

il 037362 000000 move 40$.a(SP) 

000137 O40160 JMP 400$ 
. jERPAAKe ANA NEEUENEHEEEE EYEE EEEUESEEEHESELUEE MESON EEEEED 
VERIFY ONTROLLER CLEAR IF BIT& SET IN 

032737 000100 040172 i 88176, SO0S ; VERIFY? . 

O14 BEQ nt 

737 042712 ISR ers. TSTS : SETUP INDEX TABLE 

004 04 JSR PC’ GET G0 GET STATUS 

000411 BR 308 ‘NO ERROR GETTING STATUS 

pogand 70$:  .WORD ;ERROR_FROM GETTING STATUS 

1 80$: ADD #4, (SP) ‘TRANSFER ERROR TO USER 

113776 037426 o00000 MOVB 70%, a(SP) 

900137 040160 IMP 4oo$ 

004 052256 gos: JSR PC, CLRSTS ;GO VERIFY STATUS CLEAR 

S004 ie BR 120s "NO ERROR IN CLEAR 

ppOCbS 100S: ERROR IN STATUS CLEAR 

005726 110$: TST (SP)+ ‘STRIP RETURN ADDRESS TO 

062716 oO00004 ADD #4, (SP) TINE AND TRANSFER 

037456 000000 MOVE  100$,a(SP) SERROR T 
040160 oe JMP 4o0$ 


| HHBHBHHHHHBHBHEEHEHHB HHH HEHEHE EEE 
j EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 


: ID 

932737 010000 040172 BIT #81712, SOOS sPACK ACKNOWLEDGE ?? 

1Si1 BEQ 240$ :NO!! 
ll 000012 001504 MOVB § SRMDS.GETINX ;GET RMDS 
il 000206 0150s MOVE #200, GETINX+1 
004737 042776 JSR PC. GET 
000411 BR 1S0$ ;NO ERROR GETTING RMDS 
ca Sao 

130$:  .WORD 

062716 000004 140$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
hia776 037534 o00000 MOVB 130$,a(SP) 

137 040160 IMP 400$ 
O30737 000100 001340 150S: BIT #VV. RMDSI 315 YoU VALID?? 
005037 001472 CLR MEDENB “CLEAR MEDIA ENABLE 
O12? 37 go0de3 ‘001376 MOV #PAKACK!GO,.RMCS1O “LOAD PACK ACK COMMAND 
il 001533 MOVB = #RMCS1 PUT INK ;SETUP REGISTER INDEX TABLE 
112737 000200 001534 MOVB #200, PUTINX 
004737 043246 JSR PC, PLT ;GO WRITE COMMAND 
p01 BR 180s "NO ERROR LOADING REGISTER 
900000 160$:  .WORD ERROR FROM PUT SUB 
062716 OO0004 1708: ADD #4. (SP) ‘TRANSFER ERROR TO USER 
113776 037622 oo0000 MOVB  160$,a(SP) 
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OZRMEA.P11  29-JUL-77 14:18 TEST PREPARATION MODULE , 
000550 BR 400$ 
Se 108 
3558 ; See MeKNOM Eder Ir aeild oer IN Tak ee 
032737 oo0020 o40172 ° er i KNOTT bos ; VERIFY PACK ACKNOWLEDGE ?? 
+ - = e +4 
er B76 737 guar ie JSR ,GETSTS Raita FOR STATUS 
03765) 2776 JSR PC’ GET :G0 GET STATUS 
3663 rete naa BR 210$ ‘NO ERROR GETTING STATUS 
aoe Ae (8P) TO RROe FER CRGDR TO USER 
ee coe 
9269 037702 004737 053136 210$: JSR PC, ACKSTS GO CHECK ACKNOWLEDGE 
5) Le 
1 220$:  .WORD PACK ACKNOWLEDGE ERROR 
Sri Bel Pee como | Ah SE) HSrER Eon 10 OSE 
il 037712 oo0000 MOVB 2208, a(SP) : 
$276 037730 000513 BR 400$ 
3558 037732 240s: 
3578 ss SELLS EAEGSRERERERERER RR RAGE RASS AERA RA ARR ARERA AERA RAEE 
‘RECALIBRATE DRIVE IF BIT 11 SET IN TASK AND PIP IS ACTIVE 
ee aa e737 004000 040172 BIT u T11, 500$ ; RECALIBRATE?? 
112737 000012 001504 MOVB § #RMDS.GETINX  ;LOAD REGISTER INDEX TABLE 
Pra e737 000200 001505 MOVE #200 GETINX#1 
042776 JSR PC. GE ;GO GET RMDS 
3286 Soa) BR 270$ NO ERROR GETTING RMDS 
2538 250$:  .WORD ae, ERROR FROM GET SUB 
062716 90004 260$: ADD #4 (SP) TRANSFER ERROR TO USER 
oo BR 400$’ 
Bite 37 001340 270%: BIT #PIP, RMDSI 51S PIP ACTIVE?? 
p00 12 14b6 BEQ 410$ *NO!! 
40014 O1 000007 001376 MOV #RECAL!GO,RMCS10;LOAD RECALIBRATE COMMAND 
D4 003¢ 115539 Vener Sotesy Nove eres put IN ee Se 
D400 ia 043246 ISR pC PUT 500 ISSUE RECAL IBRATE 
D400 1 BR 290$ : 
9300 OHO0ME 280$:  .WORD ERROR IN REGISTER TRANSFER 
= BIDEN TGS7Fe Supee ooooon ** «Abve  Sabs -a¢SP) per rae 
BR 400$’ 
es 042712 300$: JSR PC, GETSTS ;SETUP FOR STATUS 
3308 040070 004737 043606 JSR PC; TIMOUT WAIT FOR COMPLETION 
$307 $ TT Aathim.6 6 
3308 040074 032737 o00010 o40172 ’ BIT toiTS SOS ; VERIFY RECALIBRATE?? 
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9310 001432 
$311 004737 
$315 Boos81 
9314 000000 
ee ie 

1 1 


SELENFEHSERENGS ENS LR 


Pe dee De eB ee ee be Bt ie ee 


2 gezeveezeezen2e0999 | 
ro 


042776 


000004 
040114 


000004 
040142 
000002 
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BEQ 410$ sNO!! 
ISR PC, GET GO GET STATUS 
BR 3305 :NO EEROR GETTING STATUS 
310$:  .WORD ERROR FROM GET 
320$: ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB  310$,a(SP) 
BR 400$ 
3308: JSR PC. RCLSTS GO CHECK RECALIBRATE 
BR 410$ ?NO ERROR DURING RECALIBRATE 
340$: . ERROR DURING RECALIBRATE 
350$: TST (SP)+ STRIP TRIP RETURN I TO SUB AND 
ADD #4, (SP) TO USER 
Move 340$.a(SP) 
400$ SUB #2, (SP) ae SP BACK BEFORE ERROR 
NOP 
410$: RTS PC ;RETURN TO USER 
SO0$:  .WORD ; TASK/VERIFY DESCRIPTOR 


SEQ 0182 


OZRMEA - RMO3 FUNCTIONAL TEST, PART 3 
DZRMEA.P11 


PRPERER ISSA TIA See NENT ER ROOM sates oe! Sat woe Oe 


005737 
001402 
000137 


Be 


222 
S88 


29-JUL-77 14:18 


001472 
041420 


106520 


M14 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 181 Q 
BAD SECTOR MODULE ae 


-SBTTL BAD SECTOR MODULE 

; THE BAD SECTOR ite fa e008 TWO MAJOR tear T I.E. 

7 GH Dat okBLSHFo th Dae 

;THE BAD SEC HE NEW SECTOR IF THE ONE ELECTED IS 
;NOT AVAILABLE FOR USE. 


t INFORMATION REQUIRED BY THE MODULE INCLUDES 
RMOCO, THE DESIRED CYLINDER, 


RMWCO, OUNT, 

; “RMCS10, THE ‘ 

{ MODULE CALL IS AS FOLLOWS, 

JSR PC, BADSCT . 

: BR 294 ;RETURN HERE IF NO ERROR 

; TYPE MESSAGE “RETURN HERE IF THE BAD SECTOR FILE 
; ERROR Anno SOOT EE BEF TNE. THE ERROR NUMBER 


: THE ROOULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER 
;GENERATOR SUBROUTINE, AND PRESERVES THE “PUT BUFFER™ SO THAT THE 
‘OPERATION. ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 


: THE MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED 
;SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ™ 
:50 THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 


BADSCT: 


i HAVE “MEDIA ENABLE” TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
HAVE ao ital 


BEQ 10$ 
300$ ;BAD SECTOR FILE IS AVAILABLE 
; ETT EECTOR FILE FRON Te Liat IK 
jRECOVE HE BAD SECTOR FILE FROM THE LAST TRACK 
; SAVE THE USER’ S PUT BUFFER 
og RO, -(SP) ;;PUSH RO ON STACK 
20S: MOV PUTBUF (RO) , BUFFER(RO) 
ADD #2, RO ADVANCE TO NEXT BUFFER POSITION 
CMP #46, RO “END OF BUFFER 
BHIS 20S NO !! 


;SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE 
MOV #3 OF enn COUN 


T 
MOV STARTING SECTOR ADDRESS 
MOV #822. RDC ‘DESIRED CYLINDER 
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#<#C258. 41>, RMWC «WORD COUNT 
SFMT 16, RMOFO "ie BIT FORMAT 
wrOrIL. RMBAO  ;BUFFER ADDRESS 


;RO POINTS TO REGISTER INDEX TABLE 


;;POP STACK INTO RO 


SET GET TREX TBR Geieis SETUP GET INDEX REGISTER FOR STATUS 


CLEAR THE DEVICE USING DRIVE CLEAR COMMAND 
001376 MOV SORVCLR! GO, RMCS1O -LOAD COMMAND IN PUT BUFFER 
JSR PC, PUT ; OUTPUT COMMAND 
BR 4s "RETURN HERE IF NO ERROR 
BR 40S GET AROUND ERROR # 
35S:  .WORD ERROR # GOES HERE 
40S: ADD #6, ( ;MOVE SP TO CALL 
ooo000 hove 358 ,9(SP) MOVE ERROR NUMBER TO USER 
uss: JSR PC. GET GO GET STATUS 
BR 60$ ; RETURN HERE IF NO ERROR 
BR sss ‘GET AROUND ERROR # 
SOS:  .WORD ERROR # GOES HERE 
SSS: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
oo0000 MOVB 50%, a(SP) “MOVE ERROR # TO USERS ERROR CALL 
IMP 215$ 
60$: JSR PC, DRVSTS 160 VERIFY DRIVE CLEAR COMMAND 
BR 75$ TURN HERE IF NO ERROR 
BR 705 T AROUND 
65S:  . WORD ut # GOES HERE 
70$: TST (SP)+ ;STRIP RETURN TO SUBROUTINE 
ADD #6, (SP) “MOVE SP TO USERS % CALL 
000000 MOVB 65%. a(SP) *MOVE ERROR # TO USER CALL 
JMP 215$ 
753: 
ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 
001340 BIT -1S WW RESET ?? 
BNE 135 “NO #! 
001376 MOV ACK!GO,RNCS1O :LOAD COMMAND 
ISR PC GO PUT COMMAND TO DRIVE 
BR 90$ RETURN HERE IF NO OUTPUT ERROR 
BR ass ‘GET AROUND ERROR .# 
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PART 3. MACYL1 30(1046) 29-JUL-77 17:39 PAGE 183 SEQ 0185 
BAD SECTOR MODULE 
80S:  .WORD ;ERROR # GOES HERE 
85$: ADD #6, (SP) ;MOVE SP TO USERS ERROR CALL 
ooo0c00 HOVE g0$ a(SP) ‘MOVE ERROR ® TO ERROR CALL 
90s: JSR Be T ;G0 GET STATUS FOR PACK ACK 
BR 10$$ "RETURN HERE IF NO ERROR 
BR 100$ *GET AROUND ¥ 
9S$: . WORD ERROR # GOES HERE 
100$: ADD 86, (SP) ; TO 
oooo00 Move 95%. a(SP) i MOVE PRROR eB 
IMP 2is$ 
10S$: JSR PC. ACKSTS ;GO_VERIFY STATUS 
BR 120$ ; HERE IF NO 
BR 115$ ‘GET AROUND ERROR 8 
110$: .WORD ERROR # GOES HERE 
115$: TST (SP)+ ;STRIP RETURN TO SUBROUT: £ 
ADD #6, (SP) “MOVE SP TO USERS ERROR C 
oo0000 MOVB 110$, a(SP) "MOVE ERROR # TO USERS ERROR CALL 
IMP 215 
120$: 
RECALIBRATE THE DRIVE IF PIP IS SET 
Ove 14 932737 o20000 001340 BIT #PIP, RMDSI :1S PIP SET ?? 
1 BEQ 165S NO! 
040624 012737 001376 MOV BRECAL!GO,RMCSIO rue HOR BRATE COMMAND 
040632 004737 O0432% ISR PC, PUT Ca EOMHARE 
040636 000411 BR 1388 RETURN MERE IF NO {ERROR 
BaOEAE eee 125$:  .WORD 3 HERE 
040644 062716 130$:  aDD #6, (SP) ;MOVE SP TO USERS ERROR CALL 
OvOeSD 13776 O40642 OD0000 MOVB 1258, a(SP) *MOVe ERROR # TO USERS CALL 
137 041076 IMP 215$ 
040662 135$: 
bebe 004737 043606 JSR PC, TIMOUT WAIT FOR RE CALIBRATE TO COMPLETE 
004737 042776 JSR PC’ GET G0 GET RECAL STATUS 
040672 00411 BR 1Sb$ : : HERE IF NO ERROR 
OHO67s 1 BR 1455 : 4 
76 000000 140$:  .WORD ‘ERROR # GOES HERE 
040700 062716 000006 145$: ADD #6, (SP) ;MOVE SP TO USERS ERROR CALL 
40704 11 040676 O00000 move 1140S, a(SP) "MOVE ERROR TO USERS CALL 
l2 Piiteg 041076 IMP 215$ 
040716 004737 053732 1S0$: JSR PC, RCLSTS GO VERIFY RECALIBRATE STATUS 
040722 000412 BR 16S *RETURN HERE IF NO ERROR 
040724 000401 BR 160$ ‘GET AROUND E 1 
040726 155$:  .WORD ‘ERROR # GOES HERE 
040730 005726 160$: TST (SP)+ ;STRIP RETURN TO SUBROUTINE 
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SEQ 0186 
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;READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 


;MOVE ERROR # TO USERS ERROR CALL 


;LOAD READ HEADER AND DATA COMMAND 
;MOVE SP TO USERS ERROR CALL 
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Bases 


USERS ERROR CALL 


TS OF READ OPERATION 


PC, DTASTS 
bs 


el 
205$ 


JSR 

BR 

BR 
200$:  .WORD 


195S: 


IP RETURN ADDRESS TO SUBROUTINE 
SP _ TO USERS ERROR CALL 
ERROR # TO USERS CALL 


MOVE 


NG TO READ THE BAD SECTOR FILE. 


240$ 
; THE SECTOR WIL 


;AN ERROR HAS 
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FUNCTIONAL TesT, PART 3. MACY1I 30(1046) 29-JUL-77 17:39 PAGE 185 
29-JUL-77 14:18” BAO SECTOR ROBULE = Oe 
041134 042716 000010 BIC #PAR, (SP) ;YES ~ CLEAR PAR 
Bilis 220: IST (SP)4 ;ARE THERE ANY ERRORS NOT DUE TO MEDIA ? 
Ost 001370 MOV 1,-(SP) tke 
1180 042726 100010 BIC SBSE'DPE,(SP)+ CLEAR MEDIA ERRORS 
041154 001022 BNE 230$ pe IF NONMEDIA ERRORS DETECTED 
THE ERRORS ERRORS DETECTED WH WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 
me TD mR SEE_TF THe, BO SECTOR FILE CAN BE RECOVERED FROM 
ON THE LAS 
001 
Ber erie catit cre #10, RPORO au ui i ar ea BPR BBs HAVE BEEN 
iee7 3? 000040 001404 CMPB —s- #32. , RMDAO IOUT TE ALL USER SECTORS HAVE 
I BEQ 2308 i BEEN 
016737 000003 o42066 MOV #3, SOOS jREINSTA RETRY COUNT FOR THIS SECTOR 
162716 O00006 225$: SUB #6’ (SP) :MOVE SP NO ERROR 
000137 o40344 JMP 30$ RETRY T HE READ OOPERAT ION 
230: 
; THE BAD SECTOR FILE CANNOT BE READ 
162716 OO0004 SUB (SP) ;MOVE SP TO ERROR RETURN 
000137 o42062 JMP 410s GO TO MODULE EXIT 
240$: 
;THE SECTOR WAS RECOVERED WITHOUT ERROR - 
: READ THE USER FILE IF THIS IS THE MFG FILE 
: ELSE DONE 
122737 000011 OO14O4 CMPB —s_-&9. . RMDAO WAS USER FILE READ ?? 
103451 BLO 260$ : YES THE EAB IS COMPLETE 


;IF 144 IS IMPLEMENTED THEN READ ns USER FILE - 
; ELSE DUMMY THE BAD SECTOR FILE 
BIT @MSE!USE, MFGFIL 


; ARE THE 4BA0 SECTOR FLAGS OFF ?? 
001410 BEQ 250$ YES - 144 IS DISABLED 
012737 002012 001404 MOV ,RMDAO so; 
012737 000003 O42066 MOV #3 REL DAD THE RETR RY Count FOR THIS SECTOR 
000137 o40344 JMP 30$ GO READ THE USER FIL 
-DUMMY THE BAD SECTOR FILES 
910046 V RO, -(SP) ;;PUSH RO ON STACK 
ayo Noe RL iAP USH Rn Be ENTRIES IN FILES 

eae ean MOV #14,R0 RO = ADDRESS INDEX if FILE STORAGE 
012760 177777 104S00 25S$: MOV #-1;MFGFIL(RO) ;ENTER ALL ONES IN MFG FILE 
o1g760 77777 105510 MOV #-1'USRFIL(RO) ;ENTER ALL ONES IN USEF! FILE 

hooaue ADD #2, RO ADV ADDRESS 
005301 DEC *DECREMENT COUNT 
001366 BNE 255$ *CONTINUE IF NOT DONE 
012701 oo0006 MOV #6. ,R1 ‘CLEAR ID, SERIAL NUMBER ETC 
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TIONAL TEST, PART 3 Y (10%) 29-JUL-77 17:39 PAGE 186 
4:18 HAS bec fon HOBULE m0 Gise 
CLR RO 
104500 256$: CLR MFGFIL(RO) 
USRE L(RO) 
C RI’ 
BNE 256S 
MOV (SP)+,R1 ;;POP STACK INTO R1 
MOV (SP)+’RO :POP STACK INTO RO 
260S: 
SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 
177777. 001472 MOV #-1, MEDENS 
RO, -(SP) ;:PUSH RO ON STACK 
CLR RO *RO IS REGISTER INDEX 
106520 001376 265%: MOV BUFFER(RO) , PUTBUF (RO) 
oo000e2 ADD #2, RO : 
000046 CMP #46, RO :DONE ?? 
BHIS 265% 
MOV (SP)+,RO ;;POP STACK INTO RO 
2708: 
300S: 


3 UHHH HEHEHE HHI HEE 
;VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE 
;AND_NOT_IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE 
;SECTOR IS IN EITHER FILE. 


;LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 
MOV 33 STACK 


RO, -(SP) ;;PUSH RO ON 
MOV R1,-(SP) >:PUSH R1 ON STACK 
MOV Re’ -(SP) PUSH Re ON a 
001432 001474 MOV RMOCO, ASNDC *LOAD REQUESTED CYLINDER, TRACK, 
001404 001476 RMDAO; ASNDA AND SECTOR ADDRESS IN OSSIGNED’ STORAGE 
CLR R2 *R2 = NUMBER OF SECTORS 
001400 RMWCO, RO *RO = WORD COUNT 
DEC RO ‘CONVERT FROM 2’S COMPLEMENT 
990400 MOV #256. ,R1 Rl = NUMBER OF WORDS PER SECTOR 
001376 BIT #8111, RACS10 : Is THIS A HEADER AND DATA COMMAND ?? 
000402 MOV #259. ,R1 ‘CHANGE WORDS PER SECTOR 
305$: CMP R1,RO TS THERE A FULL SECTOR ?? 
BL 310$ :YES #8 
TST RO -1S RO ZERO ?? 
Q 315 :YES !! 
Inc Re INCREMENT FOR PARTIAL SECTOR 
310$: SUB R1,RO ;SUBTRACT ONE SECTOR FROM WORD COUNT 
INC Re ‘ INCREMENT SECTOR COUNT 
042066 315$: MOV R2, SOOS ;SAVE SECTOR COUNT 
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OZRMEA.P11  29-JUL-77 14:18 BAD SECTOR MODULE 
367 041522 3168: 
9669 LOAD PARAMETERS AND SEARCH THE MFG AND USER BAD SECTOR FILES FOR 
9670 j THE PGSIGNED SECTOR AND ADJACENT SECTORS IF THE SECTOR COUNT IS 
Rt orcas een ot aetna 
273 o41S22 O1 104514 04 MOV SMF GFIL+14, S4OS im THE STARTING ESS OF MFG 
9675 041530 013737 001474 042072 320S: MOV ASNDC, S20$ iL COaBRRING ss 
9676 041536 013737 001476 042074 MOV ASNDA: S30$ LOAD COMPARING TRACK, SECTOR ADDRESS 
2077 041544 013737 O42066 042070 MOV s00$, 510$ LOAD NUMBER OF SECTORS TO CONFIRM 
9679 SETUP FOR A SINFRY SEARCH OF THE CUNRENT FILE FOR THE COMPARING 
9680 ‘CYLINDER, TRACK AND SECTOR ADDRESS 
38) uIS5e 913700 042076 325 mov S40S$, RO ;LOAD THE BASE ADDRESS IN RO 
1 12701 000376 MOV 8¢< 127, #4) 72> , RL “Rl = TH OF FILE 
9683 041562 060100 ADD R1,RO START BINARY DIVIDE AT CENTER 
34 Ov1564 1037 042072 330$: CMP (RO), S20$ ‘Does TABLE ENTRY = COMPARING CYLINDER ? 
1 1405 BEQ 345 :YES 3! 
9686 041572 101002 BHI 340$ :BRANCH IF ENTRY > COMPARING CYLINDER 
9687 041574 335 
apes FILE ENTRY IS LESS THAN COMPARING CYLINDER (OR TRACK AND SECTOR), 
9690 SQ ADD DISPLACEMENT TO CURRENT POSITION 
9691 041574 060100 ADD R1,RO 
9692 041576 000410 BR 350$ 
3633 041600 340: 
9695 FILE ENTRY IS GREATER THAN COMPARING CYLINDER SO SUBTRACT DISPLACEMENT 
9696 FROM CURRENT POSITION 
9697 041600 160100 R1,.RO 
9698 041602 O004 350s 
3699 041604 
9701 FILE ENTRY EQUALS COMPARING CYLINDER. SEE IF THE NEXT ENTRY EQUALS 
9702 THE COMPARING TRACK, AND SECTOR. 
3703 041604 026037 o00002 042074 CMP 2(RO},S30$ ;ARE THEY EQUAL ?? 
l6l2 001413 360$ “YES ! 
9705 O41614 101371 BHI 340$ tBRBNCH IF HIGHER 
9706 041616 BR 335$ BRANCH IF LOWER 
9707 041620 350S: 
a709 THE POINTER (RO) HAS BEEN ADJUSTED. HALVE THE DISPLACEMENT AND 
9710 ; CONTINUE THE SEARCH IF DISPLACEMENT NOT 
9711 041620 005701 TST Ri ;1S DISPLACEMENT ZERO ?? 
9712 O41be2 001440 BEQ 370$ ‘YES } 
3713 Ov ibe4 006201 BSR Ri *HALVE THE DISLPACEMENT 
ate Ba tess 2076 CMP ee ,gtos ;1S THE NEW POINTER WITHIN BOUNDS ?? 
9716 041636 103432 BLO NO?! 
9717 O6HO 000751 BR CONTINUE SEARCH 
3718 04164 360S: 
9720 -THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE. 
9721 “ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 
8753 041642 105237 001476 INCB — ASNOA s INCREMENT SECTOR 
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MACY11 30(1046) 29-JUL-77 17:39 PAGE 188 SEQ 0190 
BAD SECTOR MODULE : 
CMPB =: #31. , ASNDA ;SECTOR OK ?? 
BHIS  365$ “YES ! 
RSNDA Crear’ SECTOR AND ADVANCE TRACK 
he . +1 
CMPB ss 84, ASNDA+1 TRACK OK ?? 
BHIS  366$ tYES !! 
CLR ‘CLEAR TRACK AND SECTOR 
INC INCREMENT CYLINOE 
CMP 8822. , ASNDC ‘CYLINDER OK ?? 
BHIS  365$ on 
CLR ASNDC 
365$: BR 316$ REPEAT SEARCH 
3708: 


; THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. DECREMENT THE 
iPEER —_——- TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER 


DEC 510$ ;DECREMENT NUMBER OF SECTORS TO COMPARE 
BEQ 380$ ;DONE IF ZERO 
INCB 5308 ; INCREMENT THE COMPARING SECTOR 
CMPB #31. ,530$ ;SECTOR OK ?? 
BHIS $ sYes 28 
CLRB ;CLEAR SECTOR 
INCB 530$+1 ; INCREMENT TRACK 
CMPS #4, S30S+1 3 TRACK OK 
BHIS ;Yes 28 
CLR 530$ CLEAR SECTOR TRACK 
INC S20$ ; INCREMENT Ai ars 
CMP #822. ,520$ ;CYL INDER OK 
BHIS 375% :YES ! 
CLR 5208 ;CLEAR CYLINDER 
37S$: JMP 32S$ SEARCH NEXT SECTOR 
380$: 


5 THE ASSIGNED SECTOR (AND REQUIRED ADJACENT SECTORS) ~ NOT IN 
;THE BAD SECTOR FILE JUST SEARCHED. SEARCH THE USER FILE IF IT 
*HAS NOT YET BEEN SEARCHED, ELSE ASSIGN THE SECTOR AND RETURN TO USER. 


CMP #USRFIL+14,S540$ ; TEST BASE ADDRESS 

BEQ 400$ ; DONE IF BASE = USER 

MOV #USRFIL+14,S40$ ;LOAD BASE ADDRESS 
390$: JMP 3205 : SEARCH USER FILE 
400$: 


; ASSIGN hi, SECTOR AND RETURN TO USER 


ASNDC , RMDCO ;LOAD CYLINDER 
ASNDA, RMDAO sL TRACK AND TOR 
MOV (SP)+,Re ;;POP STACK 9 Re 
MOV (SP)+,R1 ;;POP STACK INTO Rl 
(SP)+,RO ;;POP STACK INTO RO 
410$: NOP 





DZRMEA - RMOS FUNCTIONAL Lg ot PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 189 SEQ 0191 
DZRMEA.P11 29-JUL-77 14:18’ BAD SECTOR MODULE 


oo 042064 000207 RTS PC 
9781 ; THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 
9783 000000 S00$: .WORD ; RETRY COUNT / OF SECTORS REQUIRED 
510$: .WORD ;NUMBER OF SECT TO COMPARE 
000000 Se0$:  :WORD ;COMPARING CYLINDER 
9786 042074 000000 5308:  .WORD ING TRACK AND SECTOR 
9787 042076 000000 S40$:  .WORD : BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 


D - RMO3 eee Lig PART 3. MACY11 30(1046) 29-JUL-77 17:39 PAGE 190 SEQ 0192 
LW) Pll 29-JUL-77 1 BUFFER GENERATOR SUBROUTINE ; 
-SBTTL BUFFER GENERATOR SUBROUTINE 
; THIS Sg ts TES A DATA BUFFER FOR WRITE COMMANDS. THE 
; BUFFER STARTS A AND IS RMWC WORDS LONG. THE BUFFER 


; CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF STMP1 WORDS 
; FROM i DATA PATTERN TABLE, BEGINNING AT ADDRESS STMPO. 
; eee ein FOR THE BUFFER IS EXTRACTED FROM RMOC, 


ALL: 
JSR PC, GENBUF 


CHULGLL LLL PPR RSPR PERE BEE 


2100 GENBUF : 
a 010046 MOV RO, -(SP) ;;PUSH RO ON S 
102 010146 MOV R1’-(SP) :?PUSH RI ON STACK 
042104 010246 MOV R2;-(SP) PUSH Re ON S 
1 O10 346 MOV R3,- (SP) ; ;PUSH Ra ON STACK 
110 O1 MOV RY’ -(SP) :?PUSH RY ON STACK 
gil 013700 901402 HOV RMBAO, RO ito DATA BUFFER ADDRESS 
it | 
Bilas Bt aoos D01432 042340 v RMOce HORT CYLINDER ADDRESS 
9810 O42130 013737 OO1404 O4e342 MOV RMDAO; 65$ ithe STARTING TRACK.SECTOR ADDRESS 
zi2 a : o00002 001376 10S: BIT SB1T1, RACS1O i WRITE HEADER & DATA? 
at 214% 013710 o4e340 MOV 60$, (RO) “WRITE HEADER WORD #1 
aie aes real taBOoE Bis arcevl Cee T (DISABLE) BAD SECTOR FLAGS 
apie te] 1 ApoE MOV see use, = MAXINUN SECTOR ADDRESS 
9817 Ove 166 ratte 010000 001430 BIT aft 16, RMOFO HB, BIT FORMAT?? 
aig Bast oe 10 010000 BIS #FMT16, (RO) *SET FORMAT BIT IN HEADER 
3830 ougene ? MOV #31. ,Re : CHANGE MAXIMUM SECTOR ADDRESS 
I 15$: INC 1 : INCREMENT COUNT 
9822 O42210 001444 BEQ SOS EXIT IF 
3863 peel ADD 2.R : RO TO HEADER WORD #2 
16 Ol 042342 MOV 65$, (RO)+ * WRI WORD 
9825 005201 INC 1 INCREMENT WORD COUNT AND 
3868 DO14 3 BEQ SOs “EXIT IF DONE 
01 042342 MOV #65S, R3 “ADVANCE SECTOR ADDRESS 
105213 INCB = (R3) 
1ede13 CMPB sR, (RB) sSECTOR OVERFLOW ?? 
10301 BHIS 25% 
105013 CLRB ss (R33) :YES - CLEAR SECTOR ADDRESS 
1 000001 INCB —_.1(R3) “ADVANCE TRACK ADDRESS 
1 000004 oj0001 CMPB «#4, 1 (R33) j TRACK OVERFLOW ?? 
1 BHIS 256 NO ! 
1 000001 CLRB —s-« 1 (R3) | YES - CLEAR TRACK ADDRESS 
} 042340 INCB 60S “ADVANCE CYLINDER ADDRES 
1 000400 255: MOV #256. ,R4 “LOAD SECTOR DATA COUNT 
013702 001174 30$: MOV STMPO, R2 sLOAD PATTERN ADDRESS 
ot 001176 MOV STMP1'R3 ‘LOAD PATT T 
12220 40S: MOV (R2)+; (RO)+ ‘WRITE DATA PATTERN 
B41 042304 005201 INC RI : INCREMENT COUNT AND 
BEQ SOS *EX 
9842 042306 001405 IF 
9843 042310 005304 DEC RY DECREMENT SECTOR COUNT 
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9e44 042312 001711 BEQ «LS ;START NEXT SECTOR IF 0 
Reals Balrss ae EST Pail ie 
a BR i Tihue’ BATA PATTE 
oi 1 —_ (SP)+. RY sPOP STACK INTO RY 
ager OiS35q picen MOV (5P)+,R3 tt pop STACK INTO R3 
5306 012602 MOVs (SP)4°R2 'tpOP STACK I 
2390 012801 MOV (SP) 4° RI Stpop STACK INTO Ri 
015600 MOV —s(8P)4°RO Stpop STACK INTO RO 
9865 000240 NOP 
age — 
988 042340 
9ge9 


O42 000000 60$: - WORD ;CYLINDER ADDRESS STORAGE 
: : : TRACK, SECTOR ADDRESS STORAGE 


3 
é 
5 
8 
E 
g 


ia 
‘a 
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-SBTTL COMPARE BUFFER SUBROUTINE 
; THIS SUBROUTINE COMPARES THE CONTENTS 


Lan HE Fine BRS A TRE, TG Bre 


OMPARISON ARE REPORTED TO THE USER VIA THE USER’S E 


CMPBUF 

: PRISE’ BUE BUFFER ADDRESS 

“WORD READ BUFFER ADDRESS 
RETURN HERE IF NO ERROR 

NOP RETURN HERE IF ERROR 

ERROR ERROR DEFINED BY SUBROUTINE 


wewe ewe ee ee ee we wee 
Fae a on O 


Scee 
ze 


Re K 
: } PUSH R3 ON STACK 


Be 
: 


042354 005037 042710 CLR 1S0$ “CLEAR CORRECTION FLAG 
DETERMINE IF DATA SHOULD BE CORRECTED 
042360 032737 100000 001342 BIT K, RMERLI AS I o OO ERE A DATA CHECK ?? 
001342 :15 iT, A HARD ERROR ?? 
1061 BNE 80S :YES ! 
033737 004000 001360 BIT ECI, RMOFI WAS ECC CORRECTION ALLOWED ?? 
001055 BNE 805 *NO 3! 
2410 032737 010000 001360 BIT SFMT16,RMOFI 31S THIS 16 BIT FORMAT ?? 
2416 001451 BEQ 80S NO !! 


; CORRECT — USING ECC INFORMATION 
a gt BUFFER ADDRESS 


3 


PEER LEET RRSP Ener Lt LLL eEREREARARL Sods tot tl 
an 
g 
8 
nag 
ne 


042420 O01 0014 
042424 013701 001372 NOV RMECIT,R *R1 = ECC PO 
042430 052737 1 042710 BIS #BIT1S’ Roos *SET CORRECTION FLAG 
;MOVE RO TO WORD BOUNDARY OF ERROR BURS 
2436 022701 000020 10S: CMP #16. ,R1 :IS BIT POSITION >» 1 WORD 
103005 BHIS 20S "NOt! 
162701 000020 SUB #16. .R1 ‘SUBTRACT 1 WORDS WORTH 
as oo00d2 ROD 8 RO ADVANCE BUFFER ADDRESS 1 WORD 
i 000001 20$: MOV #1,R2 sRe = BIT POINTER 
O42462 010203 MOV R2'R3 NUMBER 
;MOVE Re TO STARTING BIT OF ERROAY BURST 
auey 020301 30S: CMP R3,R1 51S R3 SAME AS Ri ?? - 
001403 BEQ 358 “YES ! = 
9910 042470 006302 ASL R2 ‘SHIFT BIT POINTER ‘ 
si2 a dosegs INC RS. ‘INCREMENT BIT NUMBER 
3313 76 012703 000013 35S: MOV #11.,R3 :R3 = LENGTH OF ERROR BURST 
9915 ;CORRECT THE ERROR BURST 
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9316 o42502 030237 001374 40$: BIT R2, RMEC2I 31S THIS BIT SET IN ECC PATTERN 29 
Big Heh Biel J a oe Se 
ee i4 Gaoioh BIC R2, (RO) RESET THE BIT 
10 sos: BIS Re, (RO) SET THE BIT 
9923 042522 006302 : RSL Re ‘SHIFT TO NEXT BIT 
gasd BiseSe nie 000001 MOV #1,Re ;CONTINUE WITH FIRST BIT OF NEXT WORD 
nnnnne ADD a5» RO 
2) | en eee 
1 10 80S MOV a10(SP) " "" RQ = WRITE ER 
3353 000002 000010 ADD #2, 10(SP) :MOVE SP TO ADDRESS 
9931 17601 000010 MOV a10(SP) RI ‘Ri = READ 
2238 $250 p09g¢ 000010 ADD #2 10¢56) *MOVE SP TO RETURN 
1 1 MOV RMWCI, *Re = NUMBER OF WORDS TRANSFER 
2239 ie cee0e| pokes cos: GMP (RODS CRD COMPARE DATA WORDS 
5600 I "BNE 100$ ’ *EXIT IF NOT EQUAL 
9937 O42602 005302 DEC R2 DECREMENT WORD COUNT 
oe Ree Bite ef Be etek 8 Eno 
9940 042610 100$ R 
10 Ol 001140 MOV -(R9) , $GDDAT ;STORE GOOD DATA FOR_TYPEOU 
gud Baseia thee 001142 MOV -(F1) Hy + OT ORE BAD ontA FOR TYPEOUT 
9943 abe ol 001134 MOV RU, SGDADR :ST SS OF GOOD DATA 
9944 10137 001136 MOV R1, SBDADR :ST SS OF BAD DATA 
ie Gers Gore GEN ooo 86 a ave 16 Coe ERR a 
994 Base pesree nance 000010  NOVB =: #336, 310(SP) ‘WRITE ERROR NUMBER IN CALL 
eau 5g “CHANGE ERROR NUMBER IF ECC CORRECTION FAILED 
9950 042650 032737 100000 o4e710 ’ BIT #81715, 150$ WAS ECC CORRECTION USED ?? 
9951 042656 001403 105$ NO !! 
a35¢ 3 112776 000163 o00010 MOVB  8163,a10(SP)  ;ECC CORRECTION FAILED 
3 mee 166766 000002 000010 105s: #2, 10(SP) ;MOVE SP TO RETURN IF ERROR 
ogee 76 110$: 
3356 12603 MOV (SP)+,R3 POP STACK INTO R3 
12602 MOV (SP)+’Re POP STACK INTO Re 
9958 012601 MOV (SP)+'RI ::POP STACK INTO RI 
se) bier BASE? a ai Sk 
9961 , 
9962 042710 oD0000 1S0$:  .WORD ECC CORRECTION FLAG 


PPREL TTT GT) PEREEPRRREES SETS gE 
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-SBTTL GET STATUS SUBROUTINE 
THIS SUBROUTINE SETS UP THE “GET INDEX TABLE” AND THE “GET 


S 
: BUFFER” FOR READING YSTEM REGISTERS VIA THE GET SUBROUTINE 
: AND FREN RETURNS TO a 3 aeER 
“CALL: JSR PC,GETSTS 
4 229 RETURN HERE 
042712 GETSTS: 
042712 01004 MOV RO, -(SP) ;;PUSH RO TAC 
pier 4 010146 MOV R1,-(SP) ::PUSH Ri ON STACK 
16 O01 MOV -(5P) : PUSH STACK 
042720 012700 001504 MOV #GETINX, RO :RO= OF INDEX TABLE 
BussS4 | BISZRS ie Ofnbe. CUFFER 
MOV Re = REGI I 
042734 110220 2s: MOVB Re, (ROS+ -WRITE REGISTER INDEX IN TABLE 
005041 CLR -(R1) CLEAR C SPONDING LOCATION 
1 3S: SUB #2, R2 *DECREMENT TO NEXT INDEX 
1 BMI ug : H OUT IF DONE 
eres oo0022 CHP sRNDB, Re ‘DONT WRITE RMDB INDEX 
i CLR =(R1) 
BisseR poe ee 000200 ug VB #200, (RO)+ TE TERMINAT 
ot | : e 
BiSoPR A1SZ Ri y €B9 sR ET TAR INTO Re 
042766 012601 MOV (SP)+/RI ::POP STACK INTO RI 
3770 12600 MOV (SP)+’RO POP STACK INTO RO : 
042774 000207 RTS PC = 
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-SBTTL GET SUBROUTINE 
; THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 


Stay atte Rubee tocar 


- TT N 
1B EE PPR ANGE TG TAA EA "ic RERUR 
t sRECISTERS, TO. Bt INA iit a HA CONTROL byte teoos a 
16003 i TOeE BUST BE Ter nteo WLTH A 
1  SUBROUTI 
{oor (1) ier INE TROL” HAS LOADED MI WITH RE REGISTER INDEX 
i 2) ay aay FOR THAT 
10010 : "edie pI Say CORRESPOND 
1 : vere REGIS 
teat} 3(3) 
1001 : RETURN HERE IF NO ERROR FOUND 
10014 : oop RETURN HERE IF ANY ERROR FOUND 
10015 : ERROR SUB DEFINES NUMBER 
it fe 
10018 042776 ono40 GET NOP : 
1 43000 Alb goqq04 ADD #4, (SP) ;CLEAR ERROR NUMBER IN USER’S 
1 1 CLRB. = a SP) ‘ERROR CALL 
1 043010 162716 OO0004 SUB #4, (SP) 
1 py 14 a MOV RO, -(SP) ;;PUSH RO ON STACK 
1 16 1p0ue MOV R1;-(SP) *:PUSH R1 ON STACK 
100¢ 01 MOV Re,- (SP) . Re ON STACK 
1 1 MOV * (SP) He ON STACK 
10026 1 MOV RY ee 3 PUSH 
100 1 000004 MOV ERRVEC,-(SP? | }:PUSH ERRVEC ON STACK 
10026 1 000006 MOV ERRVECS2, -(or’) ;;PUSH ERRVEC+2 ON STACK 
10026 1 1276 MOV SBASE, RO 
1003¢ 1 1326 MOV GE TBUF , Re 
100 1 1504 MOV 8GETINX’ RY 
100: 1 3160 O00004 MOV #5$ Cc ;SETUP FOR TIMEOUT 
10033 1 000006 MOV #PR6 ERRVEC+2 
i ‘ 1 001174 1S: MOV RMC (RO), STHEO 51 oH NED” STATUS 
1 001176. MOV RMCS1‘RO)'STMP1 :GET ™ 
100% 10 737 004000 001176 BIT 8DVA, STMPI ‘Device BVATLABLE?? 
10036 ry 1 000016 ADD #4, 16(SP) MATTE ERROR NUMBER IN USER’S 
ut i il 2 ont 000016 HOVE ile, al6(SP) 43 CALL 
1 1 Ibs 4 35 TSTB ss (R44) : DONE? ? 
1 i i BMI 9$ $ +o 
1 11401 move (R4) RI *R1 = REGISTER ADDRESS : 
1 3136 042701 177700 BIC 8tCIDXMSK,R1 CLEAR Ray SIGN EXTENSION 
1 aie 660004 ADD RO, RI 
1 144 i MOVa = (R4)4,R3 :R3 = STORAGE ADDRESS FOR REGISTER 
1 O43146 042703 177700 BIC BtCIDKMSK,R3  ;CLEAR ANY SIGN EXTENSION 
1 1S2 060203 ADD R2,R3 
1 043154 O11113 MOV (RL), (3) ;READ REGISTER 
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SEQ 0198 


GET SUBROUTINE 


PART 3 MACY11 30( 1046) 


RMO3S FUNCTIONAL TEST, 
1 29-JUL-77 14:18 


DZRNEA - 
DZRMEA.P1 


;:POP STACK INTO ERRVEC+2 


;CLEAR REMAINING STORAGE 


;WRITE ERROR NUMBER IN 
;USER’S ERROR CALL 


see 2 EEE 

wee 8 Bg | Tanaes 

win go =o binning 

be So48  SSRSSEs 
Y 

a Pe fEcouze 

Aion. 28.. ZEREZSS 


4g dzhuEees, bhbhhhh, 


et Ne ee ee ee ee ee 


= PSSMETSS%« BESSSESL 


ce OO 


eee aa 
Spee mRNA 


peneeceareeeree 


ee 


Re ed ed ed eh ad dd ah of ed wg a et Bt 


043156 000764 
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’ 
’ 
, 
’ 
* ( 
PUT 
3s 
5s 
7S 


SEQ 0199 


ING 


C+2 ON STACK 


ERROR FOUND 
ERROR FOUND 
NUMBER 
K 


ARE LISTED IN THE 
OF 
T 


;;PUSH 


INE 

RO 

Ri 

Re 

R3 

RY 

ERRVEC ON 


nn 88555 
ra 


AINS CONTENTS OF EACH 
IF 
IF 


“PUT REGISTER BUFFER" CONTAI 
POT WRITTEN. 
(SP) 
~(SP) 
SP) 
-(SP) 
SP) 
és2, 
Tih 
(RO) 
STMP 


;CLEAR ANY SIGH EXTENSION 


;R3_= STORAGE ADDRESS 


;CLEAR ANY S1GN EXTENSION 


;R1_= REGISTER ADORESS 
;WRITE REGISTER 


;SETUP FOR TIMEOUT 
DEVICE AVAILABLE?? 
*WRITE ERROR NUMBER IN 
“USER'S ERROR CALL 

; 

; 


;GET “NED” STATUS 
;GET “DVA" STATUS 


; DONE ?? 


s Yes?’ 


sYESr: 
;WRITE ERROR NUMBER IN 
USER’S ERROR CALL 


;ADJUST STACK 


= 
=f 28 2 43,46, 
a ~~ 
eas 
Col el * eel oe | =~ nHen 


Re 

»RY 

C 

’ 
,@16(SP) 


4 


#4, 16(SP) 


2 
MAY ai. 


ISTER 
ABLE 
ROL 

“PUT I TE HES aoe LOADED WITH INDEX VALUES 

OF ne bee ERs BE WRITTEN 

REGISTER TO 

JSR PC 

BR 99 

NOP 

ERROR 

999 

NOP 

MOV RO 

MOV Rl 

MOV R2’ - 

MOV R3 

ny ER 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIT 

BNE 

ADD 

move salle 

BR 7§ 

TSTB 

BMI 

MOVB 

BIC 

ADD 

MOVB 

BIC 

ADD 

MOV 

BR 

CMP 

ADD 

MOVB 

SUB 


& o 23 


aaa 88 B88 





on ban hem bem nem iam bam nam hem bam bam am am bam) 
OOOO 0O000000000 S88- 


: 
es 
es eau ama caaetunaaeneonees 


6566658884848482 eeecaranaeeeee 5454 


pf ceacemmaemeerseene SS asad aseacdsdsdaadasssesass 


ah a ah a ch ah ah aah ad ek nh eh a ON aN eR ce eh ees aed Omens OS need eb eh ag ah eas wad Sah a NN a NS eh NN 


— Ee eS 


3372 b42701 177700 
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PUT SUBROUTINE - 


SEQ 0200 


MACY11 30(1046) 


» PART 3 


DZRMEA - RMO3 FUNCTIONAL TEST 


DZRMEA.P11 


29-JUL-77 14:18 


S 

Ea 
sEcouse 
-O0O0000 
Seeeeee 
Seeeee 

9.9.9,0.0.9.5 

r 4 

Ovo 


Eeeeieee 


URHBRABSERA 


Hg a tt og He 


DZRMEA 
OZRMEA.P11 


ray 


oO 
a 


Re SNe 


- RMO3 a Uipe SM Lig} fl PART 3 
29-JUL-77 14:18" 
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-SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 


NOV EnmvEct2,=( =(SP) — SREP USHe Veet ON STACK 
;SET uP FOR BUS TIMEOUT 


NOV ERRVE 
MOV tad oy CEE abR sLOAD ADDRESSES FOR KW11-L 
HOV $100 Cr kveT 


T SCLKADR ;TEST FOR KWli-L PRESENT 
BR 3$ ; YES - KW1i-L IS PRESENT 
1S: CMP (SP)+. (SP)+ Sp 
MOV C SET UP FOR BUS TIMEOUT 


MOV #172540, CLKADR LOAD ADDRESSES FOR KW11-P CLOCK 
MOV $104, CLKVCT 


TST @CLKADR ; TEST FOR KW11-P PRESENT 
BR 3$ “YES - KW11-P IS PRESENT 
2S: CMP (SP)+, (SP)+ “RESTORE SP 
. ADD #2,4(5P) *MOVE RETURN TO ERROR 
: MOV (SP)+, ERRVEC+2 POP STACK INTO ERRVEC+2 


MOV (SP)+;ERRVEC ; : POP sTAGK INTO ERRVEC 
RTS PC ‘RETURN TO USER 
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10163 .SBTTL TIMEOUT SUBROUTINE 
: 
101 THIS S INE WAITS F TO RESET OR FOR A TIMEOUT GREATER THAN 
ie ES RA Ese cecERR PART PAR aM 
10168 :CALL: JSR PC, TIMOUT 
10169 : 229 RETURN HERE 
rea TIMOUT: 
18154 Ba Sepe 010046 ” MOV RO, -(SP) ;;PUSH RO ON S 
10173 043610 O10146 MOV R1,-(SP) PUSH R1 ON STACK 
10174 Dizble O10eH MOV Re, (SP) PUSH Re ON STACK 
10175 14 Ol po0004 MOV ERRVEC,-(SP)  }: PUSH C ON STACK 
10176 043620 O1 000006 MOV ERRVEC+2. -(SP) . ERRVEC+2 ON STACK 
191 tak el O1a737 04376 000004 MOV 84S, ERRVEC ;SETUP FOR BUS TIMEOUT - 04 
10178 1 000006 MOV #PR6, ERRVEC+2 
10179 043640 013700 001276 MOV SBASE RO :RO=RMO3 ADDRESS 
iis) Geese lars Shae RY BR RLS Dee cues 
10182 20 020127 172540 1S: CMP R1, #172540 *KWL1-P CLOCK?? 
10183 O39 BNE 2s :NO!! 
101 362 O01 900001 oo0002 MOV #1,2(R1) SET COUNTER 
10185 043670 012711 000005 2S: MOV #6iT2!BIT0,(R1) ;START COUNTER 
101 ™4 Ol 3S: MOV RMCS1(RO),.-(SP) ;GET STATUS 
118 Base00 pase ie reais BIC ##C<RDY!'GO>, (SP)’ 
10189 043704 022726 O00200 CMP #ROY, (SP)+ ;ROY=1,G0=0?? 
10190 043710 OO14e0 BEQ cs rYES!! 
10191 biz? le 032711 000200 BIT #8177, (R1) TIMER DONE?? 
10192 043716 001765 BEQ 3 “NOE! 
10193 043720 005302 DEC R2 DEC NUMBER OF CYCLES 
10194 043722 001354 BNE 1s CONTINUE IF NOT DONE 
1019 Ba375e hae 4g: CMP (SP)+. (SP)+ sADJUST STACK 
10197 043730 062766 O00004 oD0D12 ADD 4 12tsP) “MOVE SP TO USER’S CALL 
10198 043736 112776 000007 cO0Dle MOVB «#7, 12(SP) ‘WRITE ERROR NUMBER 
10199 043744 162766 000002 000012 SUB 2) 12(SP) 
es 043752 cS: 
16503 04 BISeS7  BODDOR MOV RENE HERRVERVE pop STA INTO ERUED Oe 
{B5p4 7e8 012602 MOV (SP)+'Re ::POP STACK INT 
1Os0e O4a7ee BtSeDO NOV CSP Dae RO ti bop STACK INTO RO 
iGebr Bi3758 000207 RTS , eee “RETURN TO USER 
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19208 -SBTTL PRIMARY ERROR CHECK SUBROUTINE 

1021 OF THIS VERIFY THAT STAUTS IS VALID AND 
154 hr Rtn anh eee CKING SHOULD BE. PERFORMED. THE 
10213 “FOLLOWING CHECKS ARE 

10215 .CURRECT UNIT IS SELECTED , THE UNIT SELECT BITS OF RMCS2 
10216 (BITS 0-2) EQUAL THE UNIT BEING rebiks 

10218 .SELECTED UNIT IS AVAILABLE, TS OVA (BIT 11 OF RMCS1) IS SET 
19219 "AND NED (BIT 12 OF RMCS2) IS RESET; 
10221 : .LAST COMMAND WAS COMPLETED THE MASSBUS CONTROLLER IS 
10222 ‘READY (BIT 7 OF RMCS1) AND GO art” Fe RESET (BIT 0 OF RMCS1) OR THE 
10223 ‘DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 

10224 > -NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 

10226 As h5 PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 

10227 -1.£., PAR = 0, OR, PAR = 

10228 

10229 ; 

19230 s THE SUBROUTINE ASSUMES THAT: 

10232 STATUS HAs BEEN S STORED IN TH THE REGISTER INPUT BUFFER 

10233 tIN PARTICULAR, Se_ AND _RNDS VE BEEN STORED IN THEIR 

10234 CORRESPONDING + ee St ane 6 OF T “ieee BOF FER. 


: .(SUNIT) CONTAINS THE DRIVE NUMBER 
? THE SUBROUTINE IS CALLED AS FOLLOWS: 

*(1) JSR PC, PRIERR 
} BR 


10235 

10236 

10237 

10238 

10239 

10240 

10241 : 224 RETURN HERE IF NO ERROR 

10242 : NOP RETURN HERE TO REPORT AN ERROR 
10243 : ERROR ERROR NUMBER DEFINED BY SUB 
10244 } JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
iets : RETURN HERE IF NO MORE ERRORS 
{54 Sys 043772 PRIERR: 

10248 

10249 ;CLEAR USER’S ERROR CALL 

10250 043772 062716 OO0004 ADD (SP) ;MOVE (SP) TO ERROR CALL 
10¢51 043776 105076 o00000 CLRB 3c) CLEAR E NUMBE 

10e5¢ O44002 162716 o00004 SUB , (SP) *MOVE (SP) TO NO ERROR RETURN 
10254 

10255 REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 

10256 O44006 013737 001336 001142 MOV RMCS2I1,$BDDAT ;CORRECT UNIT SELECTED?? 

10257 O44014 37 001142 BIC BCUNTHSK $BDDAT’ 

10258 O44022 013737 001234 001140 MOV SGDDAT _;GOOD DATA FOR TYPEOUT 

10253 044030 001140 BIC SO NttSK SGDDAT 

10260 O44036 123737 001140 001142 CMPB SCODAT SE0DAT ;COMPARE EXPECTED AND RECEIVED 
10261 ‘DRIVE NUMBERS 

10262 O44044 001415 BEQ 1S : YES 

10263 O44046 062716 000004 ADD #4, (SP) 

10264 O440S2 112776 000001 ocoD000 MOVB #1, a( SP) ERROR 1 


BORNEA.PLT Oo STUceP idsio’ > PRIMARY ERROR C RUE pete tome eee SEQ 0204 


ee poe oe Ome SoA, Ea aay Sones 
Oise 10 ous aes REG $BRE eons 

10269 044074 000137 O44614 IMP 10S ;SKIP OTHER CHECKS 

in 044100 1S: 

1 ;REPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR IF 

{ps7 1 37 OO4000 001326 sTHE OE Att ” MOOVALRNCSLI DEVICE AVAILABLE?? 

105 Baa ibe gta BNE , - YES?! a 

1067 ov 10 013737 001326 001140 HOV RNCS11,$GD0A T ;EXPECTED STATUS 

10678 13 prerae rites 001142 MOV RMCSIT,SBDDAT  ;RECEIVED STATUS 

1 132 062716 OO0004 ADD #4, (SP} 

10280 136 112776 000002 900000 MOVB #2. a (SP) ;ERROR #2 

19281 Pant he 032737 010000 001336 BIT #NED, RMCS2I ;WAS NED SET?? 

10863 ae ere 1336 001140 MOV RACS2I , SCDDAT i ASBECTED STATUS 

ites Gui Gary Glue Soin 6S epeateonr™ Nene eo STAT 

10286 Baa oe 112776 000003 Oo00000 MOVB 83, alSP) sYES - CHANGE 

10287 O44204 162716 ooo0d2 25: SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
1 044210 7 JSR PC’ a(SP)+ *REPORT DEVICE NOT AVAILABLE 
1 O44212 162716 000010 SUB #10, (SP) *RESTORE (SP) 

10280 O44216 O00e40 NOP 

10291 O44220 000575 BR 10$ ;SKIP OTHER CHECKS 

10e3¢ O44e22 cS: 
10294 ;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY ~ 
10296 gee 932737 000200 001326 BIT #RDY, RMCS1I CONTROLLER READY? ? 

{p53 pues 13737 001326 001140 MOV RMCS1I,$GDDAT  ;EXPECTED STATUS 

10298 543737 000200 001140 BIS Y T 

10299 O44246 042737 160001 0011 BIC ASC: TRE LNCPE1GO, SGDDAT 

10300 ouigod 13737 001326 001142 MOV S11,$BDDAT °;RECEIVED STATUS 

1 16 000004 ADD Ba SP) 

io303 O44266 112776 000004 o00000 MOVB  #4,a(SP) ;ERROR #4 

10303 044274 162716 oO00002 Sua #2) (SP) “MOVE SP TO RETURN FOR ERROR 
10304 p39 004736 JSR PC’ 9(SP)+ ‘REPORT CONTROLLER NOT READY 
10305 O44 162716 000010 SUB #10, (SP) RESTORE (SP) 

10306 O44306 O00240 NOP 

10307 O44310 O00S41 BR 10$ :SKIP OTHER CHECKS 

19308 044312 7$: 

10310 ;REPORT AN ERROR IF GO IS NOT ZERO AND DRY, IS NOT ONE 

10311 044312 032737 000001 001326 _. BIT.  &GO0,RMCSII ;GO_RESET? 

10312 O44320 001431 BEQ 8$ rYES!! 

10313 am 036737 000200 001340 BIT ea , RMDSI ; DRIVE READY?? 

10315 O44332 013737 001326 001140 MOV 1, $GDDAT t ERPECTED STATUS 

pat Baasue tk z yee Bott at aSCt TREINCE co, “RECEIVED STATUS 

ipa pause 16 eer ADD #4, rs 

10319 O44360 112776 000005 oco0000 MOVB #5, a(SP) sERROR #5 

10320 O44366 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
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OZRMEA. nt eg 218° PRIMARY ERROR CHECK SUBROUTINE | 
10321 JSR PC, a(SP)+ REPORT DRIVE NOT READY 

! oars es 000010 SUB #10, (SP) “RESTORE (SP) 

1 10 

1 QS: 


: 


BR 
;REPORT AN 
; PARITY ‘oe THE MAS: 


iS 


ERROR IF oe CONTROLLER DETECTED BAD 


ata 
Ur 


1 
10326 ONTROL 

10329 O44404 0327 001326 IT ,RMCSII  ;PARITY ERROR ?? 

1oaay MMT Duaea 00114 YOR 1  ipEcTED status 

Hae Betas are Tet MBL BN EFL HORTon ASAE 

i 30 013737 001326 001142 HOV RNCS11 , SBDDAT sReCEIVED ST TUS a eee 
13d a pede 13 000000 MOVE #13, a(SP) : ie 

10336 O444SO 162716 000002 SUB , (SP :MOVE SP TO RETURN FOR ERROR 
10337 004736 JSR PC’ a(SP)+ : REPORT ERROR VIA USER 

1 162716 000010 SUB #10, (SP) RESTORE STAC 

10339 000240 NOP 

10340 O44464 O004S3 BR 10$ 

134 044466 9$: 

rae REPORT AN ERROR IF THE RMOS DETECTED A CONTROL BUS PARITY ERROR am 
1 O44466 737 000010 001342 BIT #PAR, RMERLI sHAS THERE A PARITY ERROR?? 
10345 O44474 001451 BEQ 11$ NO?! 

10346 paid? 37 000010 001370 BIT #OPE , RMER2I S WAS IT THE CONTROL BUS?? 

1 1045 BNE 11$ T 

10348 044506 000010 o01412 BIT #PAR, RMER1O ‘DID, TEST ée7 PAR 2? 

1 O44514 001413 BEQ 93S iNO#! 

10350 044516 01004 MOV RO, -(SP) :-PUSH RO ON STACK 

10351 012700 001533 MOV I fo POINTS TO INDEX TABLE 
inses i6iote 91S: CMPB = #RMER1, (RO) SEARCH TABLE FOR RMERL 

1 1 MOV (SP)+,RO ; POP STACK INTO RO 

10355 000431 BR 11 Pea ws TEST 

1 105720 923:  TSTB (RO)+ TRBLE?? 

yea tw 

1 i MOV (SP)+,RO : ats STACK INTO RO 

10359 O44S44 013737 001342 001140 935: MOV RMERIT.SGDDAT  ;EXPECTED STATUS 

10360 042737 000010 001140 BIC #PAR, SCDDAT 

10361 013737 001342 001142 MOV RMERIT,SBODAT _; RECEIVED STATUS 

10362 062716 000004 ADD #4. (SP) :MOVE SP’TO USER’S E CALL 

10363 oe? 112776 000050 oop0000 move #50,a(SP3 ;WRITE THE ERROR NUMBER 
16264 162716 o00002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
10365 O44604 004736 JSR PC’ a(SP)+ ; REPORT THE ERROR 

10366 Pana 162716 000010 SUB #10, (SP) *MOVE SP TO NO ERROR RETURN 
1036 le NOP 

10368 SHNEeO Boao COCOLO a oe ae RETURN TOCNOTERROR 
10370 O44b22 000207 RTS PC , 


& 
-~ 
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DZRMEA.P11 
1os78 
tga 
10376 
10377 
10378 
0381 
ree 
0385 
0388 
0389 
0330 
0391 
0392 
0333 
0394 
0395S 044624 
0396 
0397 
0398 
0399 044624 
0400 044632 
0401 044640 
0402 O44644 
03 044650 
040S 
0406 
0407 
SY¥ 
Gite tess 
3 
ante 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


PPPS PPSP SPIE ILLES 
ROR Saw Non Ton— 
“ 
& 
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OSO464 
OS0464 
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SECONDARY ERROR CHECK SUBROUTINE 


- SBTTL SECONDARY ERROR CHECK SUBROUTINE 


Rees PO UNEXPECTED REGISTER 


SECORDARY. mH Tey THEY ere 80 SSARILY ASSOCIATED WITH THE OPERATION 
WHEN SUBROUTINE IDENTIFIES SUCH AN ERROR T nOvES 
: NC RROR N THE TEST ROUTINE AND T AEA Re 

i THE TEST ROUTINE WHICH MAKES THE TO RROR CALL. AFTER THE TEST ROUTINE 
"MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS F 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE 

; RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


‘CALL: ey PC, SECERR 


aa 
ssi 
fea 


274 RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
: ERROR ERROR NUMBER DEFINED BY SUB 
: JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 229 RETURN HERE IF NO MORE ERRORS 


;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
; INPUT REGISTER BUFFER. 


SECERR: 


: © RESELLER LEAR RRA RRA RARER REE RRR EERE LARA AA AAA A AA AEE 
: STORE FUNCTION CODE AND CLEAR USER’S ERROR NUMBE 

MOV S10,515$ “STORE FUNCTION CODE 

BIC arccrOIPLtF2tFathi S1S$ 


(SP) MOVE. (SP) TO ERROR CALL 
CLRB a(S) RROR NUMBER 
SUB #4, (SP) MOVE (SP) TO NO ERROR RETURN . 
+ LHEKLEE HEGEL RL ERK RARER RARER REESE RARER ARERR RARE RRRA AERA REE A AAR EELS 
t AHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 
;REPORT ERROR IF DRIVE IS NOT READY, I... IF DRY = 0 
BIT 8DRY, RMDSI ORIVE E READY?” 


BNE ives! 
MOV RMDSI,SBDDAT § ;BAD bata FOR TYPEOUT 
BIC #+*CDRY, SBDDAT 


MOV #ORY , SCDDAT ;GO0D DATA FOR TYPEOUT 

ADD #4, (SP) 

MOVB #10, a(SP) ; ERROR NUMBER 

SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 

JSR PC’ a(SP)+ ‘REPORT NOT RE 

SUB #10, (SP) NRESTORE. (SP) TO ERROR N 
-REPORT ERROR IF GO BIT IS NOT RESET 
es: BIT #60, RMCSII ;G0_BIT RESET?? 


Q *YES!! 
MOV RMCS1I,SBDDAT BAD DATA FOR TYPEOUT 
CLR scopAt ;GOOD DATA FOR TYPEOUT 


rear - —- 
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DZRMEA.P11  29-JUL-77 14:18 SECONDARY ERROR CHECK SUBROUTINE 
10485 044770 112776 000011 o00000 MOVB #11, 3(SP) ERROR NUMBER 
0429 044776 162716 000002 SUB #2, {SP) ; jMOVE SP TO hat FOR ERROR 

000010 deg RYO cep) : OBYe spy 
1043e 045010 NOP 

“REPORT ERROR IF TI READ FROM DEVICE IS NOT CT 

Riad O4S012 013737 001326 Oo01142 ifet MOV Ree SH Ser fe ERR Cr Rod CORRES 2? 
Ie fees Gre tomes Bie = Ri SLSC'GRRRI' —seveecren ncrzOn ome 
tBd3e pens 1142 sett CMP SBDDAT,SGDDAT ’ 
10439 O4S042 001413 BEQ 158 sYES!! 
tanh Bioed Mose ie ane oo0000 MOVB #12, a(SP) ERROR NUMBER 
1o44a raed — IREPORT WRONG FUNCTION CODE” 
teida nay 5 000010 SUB #10, (SP) : WRe ONG OE Cah 
tf : Buen7e —s 1S$ 
eae REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
10448 “ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 
10449 OTHER ERRORS ARE SET 
10450 045072 005037 001140 CLR §GDDAT sEXPECT “ERR"=0 
fags ate B57083 001342 TST RMERLI i 18, RMER! =0?? 
1 104 001370 TST RMER2I 1S RMERZ=0?? 
10454 045110 001403 BEQ 25$ :YES!! 
1045 pvel 737 04 001140 20%: BIS #ERR, SGDDAT "ERR SOULD BE SET 
1 1 1 001340 001142 25S: MOV RMDS!, SBDDAT 
10457 126 O27 37 13 001142 BIC ##CERR, SBDDAT 
10458 134 001140 001142 CMP SGDDAT;$BDDAT ;IS “ERR” OK?? 
1 142 o01412 BEQ 30S *YES!! 
10460 144 062716 000004 ADD #4, (SP) ‘MOVE SP TO USER’S ERROR 
1046 150 112776 000047 ooD000 MOVB #4? a SP) ‘WRITE ERROR NUMBER 
1OMES 156 162716 Oo0002 SUB #2, (SP) *MOVE SP TO ERROR RETURN 
10463 045162 004736 JSR PC’ a(SP)+ ‘REPORT INVALID COMP ERROR 
10464 045164 162716 o00010 SUB #10, (SP) 
LBs REPORT AN ERROR IF “TRE” IS SET AND NONE OF THE BITS WHICH SET 
i j TRE 1S SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 
{Bugs 045170 005037 001140 30$: CLR $GDDAT sEXPECT “TRE” =0 
10470 045174 013746 001336 MOV RMCS2I.-(SP)  :WAS DLT, WCE, UPE, NED, NEM 
ii, BES ICE Be ea OS We ce 
1 032737 O40000 001340 BIT #ERR, RMDSI ‘WAS EXCEPTION RECEIVED?? 
10474 14% 001407 BEQ 40S :NO!! 
ibe 16 $9399 000030 oSO464 CHP SSEARCH, 515S j HAS, DATA TRANSFERRED? ? 
1B 403093 040000 O01140 35%: BIS #TRE, SGDDAT “TRE” SHOULD BE SET 
10478 pibes4 013737 001326 O01142 40S: MOV RMCSII,$BDDAT BAD DATA FOR TYPEOUT 
1 2 137777 001142 C #*CTRE, SBDDAT 
10480 O4S2S0 023737 001140 001142 CMP SGDDAT;SBDDAT ;IS “TRE” OK?? 
1048 Obed OO1413 Q 4Sg :YES!! 
l 716 OO0004 58 #4, SP) ‘MOVE SP TO USER’S ERROR CALL 
10483 045264 112776 000014 oD0000 MOVB #14, a( SP) ‘WRITE ERROR NUMBER 





2 
BB 
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MACY11 30(1046) 29-JUL-77 


SECONDARY ERROR CHECK SUBROUT 


Tsk PCLaCSP)s 
eids(8P)” 


Wee 


4S$: 

$ jAIMAHEAISEHERAESSEERSEOSEUEELEESSSESSSSSSEEASESHSSESESEATESSEOES 

USING THE FUNCTION CODE T CHECK 

: He ES BITS NOT SET THAT -G., aq AND ILF 

STATUS BITS SET HAT SHOULD NOT BE SE WCE AND ECH 
THAT BITS CONDITIONAL vl ‘Soba AND OTHER 


;NOTE 
sien CONDITIONS E.G., WRI 


17:39 PAGE 206 
INE 


;MOVE SP TO RETURN FOR ERROR 


a 


LOOK ERROR SHOULD ONLY BE SET IF 


WRITE LOCK IS ON AND THE COMMAND IS A WR 


MOV 
MOV: (SP)+,RO 


TION CODE 
NTRY 
3; 3POP s ACK INTO RO 


OR IF AN UNEXPECTED ATTENT ION OCCURRED OR IF 


;REPORT AN ERR 
;ATA IS il SET AND SHOULD BE SET. 


MO T 
BIT #ERR, RMDSI 
SOs 


BEQ 

BIS SGDDAT 
Sos: BIC #¢CAtA, SGDDAT 

MOV I T 

BIC 8#CATA, SBDDAT 

CMP T? T 

BEQ cs 

ADD #4, (SP) 

MOVB 6,a(SP) 

SUB #2; (SP) 

JSR PC, a(SP)+ 

SUB #10, (SP) 

NOP 


SSS: 


;REPORT ERROR IF ILF_IS INCORRECT, I.E., 
CODE TABLE 


WITH FUNCTION 
MOV 
BIC #tCILF, SGDDAT 
MUY RII; 
BIC #*CILF, SBDDAT 
CMP T’ 
BEQ 60$ 
ADD #4, (SP) 
MOVB #254. a(SP) 
SUB #2, (SP) 
can) 
60$: CLR He 


;GET EXPECTED ATA ee 
315 | tee ERROR SET 
EXPECT AN ATTENTION 
STRIP DONT CARES 


GET RECEIVED ATA 

;STRIP DONT Mat: 

1S at A OK ? 

‘MOVE SP TO yy ERROR CALL 

;LOAD ERROR # IN CALL 

SHOVE SP _TO ERROR RETURN 
ORT ERROR 


t RESTORE SP 


IF’ILF DOES NOT COMPARE 


;GET EXPECTED ILF 
;CLEAR ALL OTHER BITS 
;GET RECEIVED ILF 
;CLEAR ALL ce BITS 
; LF CK ? 


USERS ERROR CALL 


; T 
;MOVE SP T OR 
‘CLEAR EXPECTED STATUS 


; REPORT a aa IF WCE as SET AND SHOULD NO 


500$, -(SP) 


T BE SET 
;GET WCE STATUS ENABLE 


SEQ 0208 





RRA G 


= 
T 


PAE RRMA SSSA 





- 
T 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 


PAR 
Bee 


RR 
RE 


5 


“3 


Se Se Eee 


Fae 
_ 
o 


TIONAL TEST 


rs 
177777 


004000 
004000 





001142 


001340 


001142 


000000 
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M16 
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Pele Men status. 


‘Shane TCE On 
ey Sp To USER'S ERROR CALL 


;MOVE SP TO ERROR RETURN 
;REPORT ERROR 
;RESTORE ERROR 


; REPORT Earn IF spos sans IS ie GET OPP STATUS ENEELE 


IS NOT ENABLED OR IF IVC IS 
;GET wset ENABLE 


iS w 
$ ee 

ites - IVC ee 0 
; ALL 0 IT 
;GET RECEIVED STATUS 


;BIT 11 (ae) OF pe dake CODE TABLE IS TKS ENABLING BIT FOR 


Abe «ANESST’ SBDbA 
T 
BIC (SP)+, $BDDAT 
BEQ 90S 
ADD #4, (SP) 
MOVB #26, a(SP) 
SUB 82, (SP) 
JSR PC’ a(SP)+ 
aaa SUB #10, (SP) 
Bis HYCO, (SP) : 
BIC SEM ust 
BEQ 100$ 
ADD #4, (SP) 
MOVB  #164.a(SP) 
SUB 2, (SP) 
A ia PC,a(SP)+ 
#10, (SP) 
100$: 
;REPORT ERROR IF IVC IS SET AND 
:SET AND VV IS NOT RESET 
MOV S00S, -(SP) 
BIT 8VV, RMDSI 
BEQ 105$ 
BIC #IVC, (SP) 
105$: IS #tCIVC, (SP) 
MOV RMER2TI ’ SBDDAT 
BIC (SP)+, $BDDAT 
BEQ 110$ 
ADD #4, (SP) 
MOVB #165,9(SP) 
SUB #2, (SP) 
JSR PC’ a(SP)+ 
SUB #10, (SP) 
110S: 
> ALL ne ERRORS : 
; ’ Tae 


TEACH OF ROHESE ERRORS IS CHECKED 
WRITE ERROR ENABLE BIT IS RESET. 


; REPOR 


Bh fag 
1208" 


BIT 
BNE 





1S THE DRIVE WRITE PROTECTED ?? 
:YES !! 


TO SEE IF AN ERROR IS SET WHEN THE 


T AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
: THE oe ™ IS NOT yet ppt Ieee 


;ASSUME WRITE ERRORS E 


ED 
fee WRITE ERRORS ENABLED ?? 

















BOl 


some PLT sit PRT 3 Etnbey Emon check Susmoutiie) 


SEQ 0210 


ARE NOT ENABLED 
ITE ERRORS ARE ENABLED 


oe 
ara ar 
$ARE WRITE ERRORS ENABLED 77 


S SET AND WRITE 
; ASSUME 
® 
; YES 18 
+] 
iD et Ee 
sRESET us 
;BRANCH I 
sMOVE SP TO 
;WRITE 
; MOVE TO 
sREPORT ERROR 





Sie a3 
xd 6 “ae sist bbs 
Segacd Naveen cael S258 ae Baise 
epugeans tae Esceepcgetaas socucsuse lass 
ioe | 
: TTT a sa ae 
= cee Ss ES 


oh inaaam aa 
saerrere i adadaddaasi tantra M ERR RR RRR RRR ROS 


ee eee eee sseeesS 





1 

; 
001142 1308: 

1 

1SSS: 


001142 1508: 
ooo000 





10 
$2777 
604000 oS0456 
336 
142 





trenen 














iP BESTA? ELAR a? 


SEQ 0211 


Bg ee Mie Bs oe es Se es 

whi ¢ | both bebe 
at : a i! eon 
nae i oe, Seaton & one 
7 et Bui _- & & te 
PPR og ere % of os He & ss 
Wate gems Po § G2 HS 8R Oe be ob S one 
fm seas Meas oc + ae See ee 
ctansaoina ESEYEE 5 ee stusnaaelen oe 
3 je fae | gf 


001142 165S: 
001142 1758: 


001142 


Wa ee 
at Heel vee: 
ee et Se 
. Le 
: PEPER ERC RRR EUR Renee REECE EER ER Ee Mbb iiss asa 


a ed dd ag dt tm Rh a dd ae gd ad ed ed ed et et ed td a tt 


SEQ 0212 


DO1 


(Woih REPLhahi? PE 2 


SE 


PART 3 MACY1 


A oe FUNCTIONAL TEST, 
Pil 29-JUL-77 14:18 


29 
CALL 


goers, 


mes 


ie 001142 1853: 


1000 OSO4S6 


¥ i=) 
_ 

— 

- 


SE 
Se 
12 Ee 


;ARE DATA ERRORS EANEL ED 7? 


AND DATA ERRORS ARE NOT ENABLED 
;ASSUME DATA 


eee macs 


arte 

: nonwescsssans 

3 : 
yp 

= 2 





ne ce 


FUNCTION CODE TABLE IS THE ENABLING BIT FOR 


a : f a4 
: eG Beir 
2 ee 
bi pee 
Oe ee cette 
coe gaetntGe 
- 

Sa ag, 
a = ay 
vals sBEBEESSGER 
ie 
ca SE 
me ese: 


ah — 


G BESSREES SS ctSROR CRNA RAR REDE RYE PEREDRRMMDRES IR 


Sa a tee ee hee eee tee Bie hee oem eae eee he heme eae ham home he nem heen harm, ee foam. hee eam, roe ame, ear, Fea Leen oe Teen, eae Tone Te Te Te ee ee ee ee ee ee oe ee ee Ree Ree oe Ree bon hon hen! 


EOI 


SEQ 0213 


« & 

“leq tia hab thee 

& fi a ee ~__ gg 
ae 
2 yond Be a wogtebee df ovene z 
ab i eect: [eg Seecit  eeee og 
i etiam febiiad Weblinm : 
2 ee Poe sek pope Aine 
is 2 ss babs ; = iis : a tae :! 
2 EUR SREB RUNG bast 
os Tececesgotese ececeasefann is sessalong st ai 
if Li ee ae 


001142 2358: 
ooocco 


001142 2158: 


Thee 

LTE ELT 
St GU oT 
LL. |. [ - 


BS SESS SESEEERERRER SSR SRS RRO R COR Gua aH GaN cMBaRamaaRanE 


GY a ed a ed eR de a) dd a dd dh ag dd dd ef dd de a de HR St 


} - 5% coms 


BWER.PLi SSTWL-7? Ivsie’ SECONDARY ERROR CECK SU 


FO 
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SEQ 0214 


SECONDARY ERROR CHECK SUBROUTINE 


MACY11 30( 1046) 


RMO3 FUNCTIONAL TEST, PART 3 
29-JUL-77 14:18 


PI 


TA FIELD 


phyescsesans 


REPORT BR OF GPE 1S Se! 0 Be pees 


_ 


=: 


RAT OSS EE Rn 
= hen ben ben ben ban ban ben) 

KKRRKRAKRKAKALA Ne 
6558505088646 


; MaMAmEe 


te SET AND DATA FIELD ERRORS ARE NOT ENABLED 


be 
af 


eit 
Eee 


ARE NOT ENABLED, OR 


Srycaesssana 


;REPORT ERROR_IF ECH IS 
; Bere ab 


260S: 


142 


342 001142 255$: 


1 
1 


00004 
000030 


ibs 
Se oa 
SSuerceRaa: 


5555685854845 


SRRRGRRRRRARMRGNEE 





SE525 


oe ake aR. S Hon 5B RO 5 
+ Resor . ._ <a irei~ . Sit. 

Bra: Sea ate sta role 
pad + 


striate 


eS 
amano 





Eek 


fan) 


es Bh 
weet tet 


HTS OCK ALSO SET ?# 


3 
Seaeaeenoe 


: 


4 


RFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


© 2 SSE HE HEM ME MEE HE HE HE HE HE HE HE HE HE a a a EE 


PE 


2655: 
2758: 


O0i3s4e O0li4e e270$: 
’ 
’ 


100000 001342 
000100 


? 
_ 
-_ 
8 


Sasnontaras! 
—— 


peeeanareneeeeees 


CEE EERE LEE Sie 


SeseseseSSSS6SSess66Seoesooo6o eooosessssessesesssssesssceo 


- RNO3 ha pe Ls 3 PART 3 MACY11 30(1046) 
Pil 29-JUL-77 14:18" SECONDARY ERROR 


022737 000030 OS0464 
7400 103402 
047402 000137 050430 


CMP 
BLO 
JMP 


GO1 


chech buen i? PAGE 213 


#SEARCH, S1S$ 
355$ 


;WAS DATA TRANSFERRED?? 
;YES!! 


SE@ 0215 


SEQ 0216 


HO1 
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SECONDARY ERROR CHECK INE 
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, PART 3 
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OZRMEA - RMOS FUNCTIONAL TEST 


DZRMEA.P11 


DONE 


CTOR’S WORTH 
FROM STACK 


NUE _IF 
j 
OR 
OR 
OR 


NDER ADDRESS FROM NUMBER OF SECTORS 


;RESTORE (SP) 


chin? SeR07? 


; TRANSFER ERROR DETECTED?? 
ADDRESS 0K?? 


NUMBER OF WORDS TRANSFERRED 
“ADDRESS SHOULD NOT HAVE CHANGED 
‘BAD DATA FOR TYPEOUT 

*MOVE SP TO RETURN FOR ERROR 
*REPORT UNEXPECTED ADDRESS 


ies. 
i, 
ives 


;NUMBER OF SECTORS TRANSFERRED 
;NUMBER OF WORDS TRANSFERRED 
;NUMBER OF WORDS PER SECTOR 
iE AOER & DATA COMMAND 7? 

;YES INCREMENT CYLINDER 


IG 
IG 
IG 
;SECTOR OVEFLOWED?? 


;NO?! 


;CYLINDERS WORTH?? 


SUBTRACT ONE 
iSTRIP 

ORE 

ORE 

ORE 
=NO!! 


AND TRE 
; 
i] 
; 
g 
: 
3 
rect, $0 NOT CORRECT 
T 
eos 
; 
+ 
er 3 
ZOTONS TRANSFERRED 
a 
; 
; 
y 
5g ne 
tJ 
¢ 


,SS00AT 


»RMCSII 
SP) 
(SP) 
) 
SP)+ 
SP) 


iene ieee an Ep ate S hee 
sccapeazelsnne soneca spent lanes g8 sabge 

W too peed 
EE an 1 
isi BeGeet Bee Berks 
Se. sous See Be 
FEECEEER EES EEPREERERPREERE pereecereee Ceeeeer Peete 


55648555588 Peer reer as 65424444444 5444646 54444 


BESs Rec aE scene hebebarkeckenececnecnerecasanacenmeneinnee 


ee et ed 66666566666669666606006060000000600000000000600008G 


a as + 
PoPe & & BeneRS ao 


oat 
STRE 
re 

re 
PCa 
‘pe 


;THE FOLLOWING STATUS CHECKS ARE FOR DATA TRANSFER COMMANDS ONLY 
REPORT i IF 

E 

as 

8 

T ERROR I 

MOV 


001330 o01142 480s: 
001326 
ooo000 
140 
140 
i 
140 
332 


T01 
RMOS FUNCTIONAL TEST, PART 3° ACYL 20C10N6) P9-JUL-77, 47:39 PAGE 215 SEQ 0217 
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1 000240 oOS0462 SUB #<S"32.>,510$ ;ADJUST SECTOR 

tsi nines - im BR 305s TRY AGAIN 

RS al | H . TRACK 

1 353 oso4b2 332. ,S10s : T SECTOR 

i heave BR 305$ :TRY AGAIN 

iHe 023787 OS0460 OO0000S 315S: CMP 505$,85 ; TRACK OVERFLOWED?? 

i , fae Os(SO UASREMENT CYLINDER 

i 16737 Ban0es | OSO4ED tS Bev B0SS ;AOJUST tRACK 

1 BR 3155 -TRY AGAIN 

1 «REPORT ERROR IF “LBT" IS NOT CORRECT 

1 005037 001140 42008: CLR SGDDAT ;SET GOOD DATA FOR LBT=0 

1 022737 001467 oso4s6 CMP #823. , S00 *SHOULD LBT BE SET?? 

1 491007 BHI NOt! 

1 p02000 001342 BIT SIAE, RMERII WAS IRE SET 2? 

1 1 BNE YES - LBT SHOULD NOT BE SET 
1 1 902000 il MOV SGDDAT *SET GOOD DATA FOR LBT=1 

1 rl 001 001142 325$: MOV t. SBDDA *BAD DATA FOR TYPEOUT 

1 errs 001142 BIC arcist, T 

1 1140 001142 T’ T  ;IS LT CORRECT?? 

1 001413 BEQ 330$ :YES!! 

ipeeg Prstte pon nove SBP at 
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CO Ah a ad Rh a ag ad a me Ch a ad ag he a hh a hg dd ed ed ed ed od th et te 
OO ah OG HG a ORG HG a HF OG Hd 8 OG ad OG HG ORG OY ad Od ad Ad ed Og Od wd a ad ed ad Od) ad ed Od ed ed en ad nd dd ad ed md a ad Od ed wd ed ee md eg ed dt 


fi PE PED PERRO BESOEBEIECET REN PT RABE MEPREPEPPEFEE 


COS 


SEQ 0237 


PAGE 235 
NE 


7: 


BaRER.Pit SU aster PTS REN boRATE Stud “che 


NUMBER IN CALL 
RETURN FOR ERROR 


SP TO USER’S ERROR CALL 


$e 10. 


;MOVE SP BACK TO USER’S BRANCH 


;DID "Ww" DROP?? 
ile THERE A IVC ERROR?? 
f 


zh 


Soe 
ond he 
do 


888 


soeeas & 
Sars 


000100 001340 
010000 001370 


S 
sossosasbess 


—? O=UMTin.ot oc 
on ed ed ag Oa ey ey wea eed 
ODawaoOooawowac 


: 
aa 
te i 
Coot 
Bos 

af a 8.5, 
obey ace 
=a £ 
£m 
snVBtasesnes 


Soa abu 
umd Ge 


sree 


;WAS “OM" RESET?? 

;EXPECTED STATUS 

;RECEIVED STATUS 

;MOVE SP TO USER’S ERROR CALL 
NUMBER 

;REPORT ERROR VIA USER 

;MOVE SP TO USER’S BRANCH 


; YES?! 


IS NOT ZERO BECAUSE RECALIBRATE SHOULD 


Ze, : 


ee | 





cone 


12S: 


8a8™, 


ai 
SHUGEMSRSRSSUGOMVRoeececaenaauunne 


“REPORT AN ERROR IF “PIP” IS STIL ON 


Bs: 
oT: 
& 
Th 
enyetee.® 
atstestee 


Egat E 
8 8 

ge cee 
Ses 


ZNO RRS 


th I I It 


poduitiattat 


eI a a ed dd a nd ed Ot ed ee eg dd nd dd ah a ed ad hh ed He HE tt ed Ht 
dy ed ed cd ed eh eh nd a ag eg ad Og OG ad ee) ad eg eG ng me Od ed ee a) a) dC ed ed ed dt ed eg od dw od 
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SEQ 0238 


PART 3 MACY11 30(1046) 
RECALIBRATE STATUS CHECK SUBROUTINE 


RMNO3 FUNCTIONAL TEST 
1 29-JUL-77 14:18 


os} 
‘a 


;MOVE SP TO RETURN FOR ERROR 
;MOVE SP BACK TO USER’S BRANCH 





;WAS ILR SET DURING RECALIBRATE?? 


sNO!! 
, 


;MOVE SP TO RETURN FOR ERROR 


;MOVE SP TO USER’S BRANCH 


;RECEIVED STATUS 


;EXPECTED STATUS 
;MOVE SP TO USER’S ERROR CALL 


-~ 


SILR, RMERLI 


sersuee 


Peaeaasanas 


: 
d Sestet 
: 


;REPORT AN ERROR IF “ILR™ IS SET 


aq 
% 
2 


14S: 


WAS RMR SET?? 


alte fre 


;REPORT AN ERROR 
BIT 


1342 


an i 





{s SET 
RMER1 $ 


EXPECTED STATUS 
IVED STATUS 


Sgeanas 


: 
aeaeet 
om 


3" o-4, 


8 


BIC 





4 
-l= 


ay > ene ns 
Sits tea 


etre 
Fata 
— 


001342 


yacsasanas 


DETECTED 
;MOVE SP TO USER’S ERROR CALL 


oe 
pra th 


— 


#4, (SP) 


oe RETURN ADDRESS IF ANY 


16S: 


2 | 


¥ 





RACER EERE MSS S SSS SSS Cre tit taraaa Saas ASS aici isto 


a dd ad ad ad ad a a ad ad ad ad ed a dd ad ad ad Gd a a a a ad ad ad od ad ad ad nd dn and ad Od wd nd Od wed dod 
Se a hee ee hee hae ee eee ee ee ee hee ae hae hee loam hae bee eee hee hem kore Team hae hea beer, harm. hare. hee kee bee, hee Fem ee ee ee ee ee ee ee LL LLL LLL!) 


E03 
BeERP1i > SMU asia’ > AREA boRATEOS RA Tug "CHK GuehOGFine” o~ °°” | seo 0239 


11911 OSS4¥SO 105776 000000 TSTB = a( SP) ;WAS AN ERROR REPORTED?? 
11216 aay 1403 BEQ 7$ ;NOz! 

1191 16 000004 ~~ ADD #4, (SP) ;YES - AUGMENT SP RETURN 
11914 OS546e 000402 BR 

11915 62716 000004 178: SUB #4, (SP) ;NO ERROR - RETURN SP TO BRANCH 
1128 Vm 188: NOP 

ties RTS PC ;STATUS CECK IS COMPLETE 
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SEQ 0240 


PART 3 MACY11 
DRIVE 


29-JUL-77 14:18 


DZRNEA - RMOS FUNCTIONAL TEST 
DZRMEA.P11 


Bae diets Stes pr 


GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


779 


-SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 


#8 


CTED & RECEIVED 


a 


alia» 


: aaa. 
aie 


“ 
abe 
ig 


: 
Bea Gee & 


lar 
gins 


iit 


ES 


angie 
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gesues 


: 
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: 

e528 

zs. 

ee i 
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Soret: gee 
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Ee “9-85 OI ISIag w 
Seetes = eesvecsye 
+, 


zenselononleceraelonss ee arte Bee 


# 


iss 


O0i34e O0ii+e 


001140 
1344 001142 
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es 


= - — — es 





<5 ESE SEGUOB SOBER VEEN ERATE EDEIAITSIIDINESTES 


dt ed ed gd od eed ed ed cd ad rd ed ad ed hd dd Gd ed ed a dg eg ed et Og eg tt 
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SEQ 0241 
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THR oth 1 cu 
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To Ere 
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mie Soe VI 
RMR 
REQB 
Preeted 
SP TO ERROR CALL 


Bre 


REQA 
a 
I 
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ee ae fk ae 
eects © EBlcey 98 lle Eke tee 

a 
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a i * 
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- 


: ‘we gs mes By = 

asss ssses 3 
5 fee 2 eee Wess fee Bao eee © bee 8 
ee ee ee E 
ES — Behegeieed Reghyeag Reghyrag 
Hann -eerivyovee Beemereetteee ee ae | 


3 PERE EH AREEDEDRCREEVEDEE 


ee ed a ee eg ed ed nd ed red we ee he et 


001140 
001374 001142 
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iB 
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le 
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SEQ O2e4e 


PAGE 240 
INE 


73 


29-JUL-77 
STATUS CHECK 


MACY11 30( 1046) 
DRIVE 


» PART 3 


RMO3 FUNCTIONAL TEST 
29-JUL-77 14:18 


_ 
_ 


p 


2” 


TECT 


iYES - MOVE SP TO ERROR RETURN 


SS IF ANY ERROR wes FOUND 
Oe an 
sNOE! 
a) 
(SP) ;MOVE SP BACK TO NO ERROR RETURN 
RETURN TO USER 


txuzee 2 


& 
wegeease 


pet 
cund 





w l 
ee pb 5 
alae 
Th, W917 


Ot a ge tt eee 


aS 
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SE@ 0243 


itive 


BY WRITING 
A 


fl tee Bae COMMANDS 
HERE IF 
HERE T 

REPORTED 


I RESULT 
Faith SfomeD IN Te Ge ACER 
92 


Ss pele: 
NOP 
isk 


1s 


.SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


i 


IFI 
N 
‘THE ERROR NUMBER IN THE USERS ERROR CALL. 
brasis 
PC, a(SP)+ 


a Oe ee er ee 


| ainnmememassors 


Y’ Y T 
I Gd dd dd th td ht tt 


DTASTS: 


13 


E OF TRAP 


rues Tee REO ERROR? ee THE.» MCPE = J 
AND 


E “i 
3 a 2 She: 
es & a 
ee Ea 
aa es BEE 
* te 
. He, 


eles Engpcaetan, 
& 


3 


pare & 


001326 
40 
eae 





i 
= ine 





10S: 


;WAS THERE A PARITY ERROR?? 


;NO!! 


;WAS IT DUE TO CONTROL BUS?? 
TO USER’ 
rd 


sRECEIVED STATUS 
ITE erage 


;EXPECTED STATUS 


ERROR WHILE WRING REMOTE REGISTERS, I.E., 


@PAR, RMER1I 
GDPE , RNER2I 
T 


ship gents 
eLVaea serv sae 


CONTRO, BUS PARITY 


z 


15$ 








OOOO OOOOOOOS 
ae hae bah bak AGE AGE AGE ACTA CLACLAGEACLIGRACLACLACLI 





SE@ 0244 


JO3 


Sey? aus1e’ > BATA TRARSPER CoMRAND STATUS CHECK SUBROUT IN 


Pll 





OR_IF “OPI” 
ITTENT 


reTuRN 


NDER” NOT DROPPING OR 


ERROR 
AN “IVC” ERROR?? 


si 
ee tere 


ct 


FURHTER STATUS CHECKING 
STATUS 


ATION 


“MISSED TRANSFER” SET?? 
SP TO USER’S ERROR CALL 


I 


MEDIUM OFF LINE?? 


“®MOL" INTERMITTENT?? 


ORE 
REOuT (50 


;EXPECTED STATUS 
WR 
RES 

T 
TI 
itRITe 

; MOVE 

;RE 

COMMAND 

WAS 

NO?! 


;RECEIVED STATUS 


tURYTE 
SKIP 
NO! 


1, Smale COMPOSITE ERROR SET WHEN FUNCTION 
L 


, BUT “VV” IS RESET, INDICATING AN I 


;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 


RMCSe2I 
SGDDAT 
eas 
T 
SP) 
ines 
;REPORT AN ERROR IF “OPI” ERROR OCCURRED DUE TO “MOL” = 0 


Swe Ree Be SE asaee 8 Fpeeaee Ce 
stoke a ee 
3 Pane ES ee 5 2 
3 Honanabeem ak SSSSERESESSIs SESSTARS LEE 

ee gh g bet er ee 


1S 
ee BS 
ooooon 
001342 
001140 
001140 
001142 
001340 
001340 
000000 
000000 


001000 001336 


5 
3 

er ee ee ¥ 
2 Os Geechee bee § 
— — 
ed 


16 
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Nd rd nt ed dg ed ah ad a hd dd ed ed dd dh eg ed Gd ad ed ed md ed ee es 
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Ra weg ee a ee eg ed md dd hd a I a hd hd ed dh dg Ht 
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rorurororororonenororofnororu rurorunru fru 


Ot BS ee fas Bae Re pee Pet 2 fn Get Pe Dan Bm Pos Os fe 0 eae et Pe pe Be pen feet be ee he ge 


ZIN-SSELERISH-SSEVRRL 


roruroruroroforororurururofurur 
VRRIBR=ABBIVotat 


f= et Bn = Be hn Be Be = Bb he ee bo fe $9 Fm Bs Be he he be he fe ee be fe fe fee Pn ee hn et he be be eee pe Pe 


Remeron 


ONT 
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29-JUL-77 14:18 DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


REPORT TNC” CR Oe Te ee ees Se" On 


714 Ol 1140 RMER2 ; CTED STATUS 
oe fie BAR BS | BR cere sus 


fous «(sad a SP? UR IN CALL 
bieras eegte ried Br cs I Hine, WOLFE: VAL 7 
1 1 oo0000 MOVB 1,a(SP) CHANGE ERROR NUMBER 
ey Re ee 





774 162716 000010 a #10, (SP) IRESTORE SP TO NO ERROR 
SEE IF “ILF™ OR “RMR” IS SET 
032737 BIT SILR'ILF?RMR, RMERII 
001510 BEG 100S os cer ERRORS DETECTED 
030737 gir aiLR, i} ;HAS “ILR" DETECTED?? 
rl HOY io eer EXPECTED STATUS 
MOV RMERIT.SBDDAT  ;RECEI A 
5 ADD =—s_-#4, ( SP} IIOVE SP 18 UaeRs ERROR CALL ‘ 
1 MOVB ashe ,9(SP) *WRI N CALL 
SUB , (SP) “MOVE SPT IF ERROR 
JSR so PC a(sh}+ : ERROR RE TURN 
sug #10, (SP) *RESTORE SP TO NO ERROR 
AN ERROR IF “ILF™ IS SET 
Brine ° BIT all, WER sHAS, “ILF™ DETECTED?? 
1 13737 00 MOV RMERII,SGDDAT  ;EXPECTED STATUS 
106 “Te BIC #ILF T , ; : 
133 ' 60 a ER — ; Yee Ieee ERROR CALL 
1 003 MOVE 8303, a(SP) ;WRITE ERROR IN CALL 
is ooo00d2 SUB , (SP) iMOVE. SP TO RETURN IF ERROR 
JSR a(sh)+ : ERORR AND RETURN 
i 1 sug #10, (SP) *RESTORE SP TO NO ERROR 
l 
AN 


d 
- 
x 






is BIT P ;WAS “RMR” DETECTED?? 
5% 0014 BEQ 100$ 2NO!! 
1 1 RMERI T EXPECTED STATUS 
BIC RNR 
1 RMERL T  ;RECEIVED STATUS 
oe (SP) oo) VE ERR MPOER IN CALE 
t 1 SUB cael *MOVE SP TO RE if ERROR 
057220 004736 JSR PC’ a(SP)+ REPORT ERROR AND RETURN 
057222 162716 SUB #16, (SP) RESTORE SP TO NO ERROR 
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DZRMEA.P11 a pe 14:18” Orn tRANSEER TATUS &x SUGROLT INE 























1 
1 
{ nov er melee, $08 ait eset sooo eon: 
1 BIS SET SKI FLAG 
1 cH #8 + RHDCO $18 CYLINDER > 82277 
1 BIC 8SKI, SOOS RESET SKI FLAG 
153 GS ARMOR TRICK > 41? 
re CMPB f mv “I SECTOR > 317? 
oe ; ee 
S55 001404 ee ae. 1 SECTOR > 2977 
l2ee. 001430 Bit ioe 118.0) art ORMAT?? 
Be os, Gh He 
1 001142 110$: MOV 106 SHOULD BE ZERO. 
1 00114 BIC #tC 
t 001142 CMP : ; s18, SIRE" STATUS 0K?? 
ell a> ° HH 
eax 061672 Bre aSKt, SIRE OK - SKI SHOULD BE O 
i 22: 1158S: ADD 84 (SP) ste SP TO USER’S ERROR CALL 
lees me: oe of a8) ; MOVE Neue sp TO RE IF ERROR 
122% JSR PC’ a(SP)+ ERROR AND RETURN 
eat a SUB #10, (SP) t MOVE SP TO NO ERROR 
12236 ; 
1 AN ERROR SET AND “IAE™ STATUS WAS OK 
: HOV ;RECEIVED STATUS 
: HOY EXPECTED STATUS 
i i BIT HAS, "SKI" SET?? 
i Br ies "SK CAUSED BY IAE = 07? 
1 BNE ives 'T REPORT SKI 
i MOVE TO USERS CALL 
md perure. 
1 J : 
iss ae ; SP TO NO" ERROR 
1 > 
AN ERROR IF SKI = 0 AND IRAE NOT c 
i BIT #Sk1, 5008 ‘SHLD SKI t BE SETS? 
84, (SP) *MOVE SP TO USER’S ERROR CALL 
Aove #307 ,9(SP) TRTTE ERROR purer IN CALL 
ioR | Pe’acsP)s I POPORT ERROR ARO RETURN 
SUB #1, (SP) >RESTORE SP TO NO 





SEQ 0246 
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a oe, 
2268 









T i ANPECTED STATUS 


Re CELT oe a 


88 8 
z 8 
ane 


wo 
a 
o 


rl ‘ cota LOOK FOR “LSC” OR oe Be “DVC" IN ERROR REGISTER #2 
Te 5 hha /RMERET ERRORS SET 
rl sREPORT ANY DEVI iy oe 1.E., Was 1 
i ih 001370 Bit pvc" = 19? 
1 01 001370 001140 MOV St ore STATUS 
at 2 
1 114 bat ae Ts eran 
i ADD #4, (SP) 
He 1 10 000000 MOVE #310,9(SP) wiv: I 
1555) bpapee Cooose Fee Pe’ Scape oer AND Re ere ah 
1eoee 152716 000010 sup #10, (SP) *RESTORE SP TO AND ERROR 
iss 1608S: 
1228 *REPORT LOSS OF BIT CLOCK, I.E.; “LBC” = 1, IF “MOL” = 1 
ie 001370 ' ey WLBC,RMEREI =": £53, BC set? 
565 010000 001340 it ,RMOSI "WAS LBC ERROR BY MOL = 0 
lez I BEQ 170$" = ime sae 
| ne al 
1 4 T sRECETYED STATUS 
1 16 ADE 4 (SP) TO USER’S ERROR CALL 
ea om Bla erate Jat 
16 000010 Sug bide (eP) ORE SP TO NO ERROR 
1708: 
sREPORT LOS OF SYSTEM CLOCK, I.E., “LSC” = 1 
7 ae -t ‘isc = 19? 

eer eat a 

ooo000 nove sd 

j 736 JSR PC alse j REPORT ERROR AND RETURN 
i 16 000010 SUB #10, (SP) *RESTORE SP TO NO ERROR 
ia 180$ 
i ;LOOK FOR “UNS” OR <OTE OR “WLE" IN ERROR REGISTER #1 
1 054000 001342 IT 'DTE!WLE, RMERL 
: Beooos Gis? BEQ zo isa pitt BITS SET 
1 032737 o40000 ool134e ° BIT SUNS, RMERLI 31S “UNS” SET?? 

Bepeis pole? Bea «1908 ihe 


NO3 
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12321 060016 032737 001370 BIT  § sOVC, RMER2I sWAS “UNS” CAUSED BY “DVC"?? 
Pose OG murs pp 140 ry 1 T patie STATUS 
1342 O01142 MOV RMERIT.SBODAT RECEIVED STATUS. ed 
000000 Rove #313, a(SP) URI ERROR MUPGER 


Bie, iebfanr nya 


#10, (SP) *RESTORE SP TO NO ERROR 





=1 


DRIVE T MDS Gon 


sOTE, sis" bre S12? 





: 
ot 






ODOC 
DOE IOOOOE 


4 
-_ 
5 
wo 
| om) 
oO 
& 


He rate 





i 
“at Mov ; 
Dot ‘ 14 HOV e318 a(S) 
cate Toe PevacsPs Poe neu 
poole 162716 000010 sug. ts«és 1, (SP) ee SP TO NO 


1 
2 
J 
m 


ERROR IS SET. SEE IF DRIVE IS NOT 





ons ;WRITE te rent, be See NOT 8 WRITE 
pig RE RT BA ST 


BoE 


SE 


ieits,rncsio *comano A WRITE?? 
ite ERROR NUMBER 
;MOVE SP TO RETURN IF ERROR 


#2, ( 
BioeteP) 126 ge TO NO 


OMIT DATA ERROR CHECKS IF ANY these DETECTED 
00, 4, (SP) 
TS acSp) 
ET: $4 tsP) s 27 

340 i SKIP Pp 


euengeeee 





i AND 
S NOT INH 


/r 





SF Gd Th ex SLeRodT Ne 


zs 


STRIP AND STORE FUNCTION CODE 


Bic fer IgE CAS & DATA?? 


HEADER CHECKS 


Beil 


~ o Miveeherrensiee, ekut “FER” OR “HCRC” OR “HCE” 


if 
i 


ra 
N 





—. bee ~s Fa 


aE g BYES8S5S5 


wo 
_ 
oO 


ECE 
Sa ES A SS 
een & 


HES 


DNC UT £ Wore 


ss 


4 
8 


== ee Pee feo fe pe bee 
rT 


Pepe yyy 
2 


iis 


ss 
= 


aa 


i Brae fomt F<o frat Bas Bee at ee Poe feo fas dene Geet Meow Boe Pm Dao fhe deat Gemo Pom ene fae eee ae fect fe Gene foe Pet fan fn fo J Groh few 


3 
HCE] RULE 





DyPy 
SRV 


yy 
R28 


PPP 


SE WEHE suas yen srr 


Se ;EXPECTED STATUS 


STATUS 
¥3! el inoy pte 
82, (SP) iHOVE IF ERROR 
PC’ 9(SP)+ REPORT ERROR AND RETURN 
ERROR IF SET 
FER, RMERII ;HAS “FER SET?? 
fren $c00n T 3EXPECTED STATUS 
Ee een TATUS 
#4, (SP} HROVE 10 USERS E 
s300,9(SP) m0 RETURN 
PC‘ a(SP)+ WG oF 10 RET, — 
260 
COMPARE ERROR IF SET 
 Sgregmaaass. 91”: macnn 
mee toa T  jEXPECTED STATUS 
SBDDAT Re IVED STATUS 
Pi) All, SP TO USER’S ERROR 
#321. 3(SP) WRI NUMBER 
#2, (SP) iT SP TO RETURN IF ERROR 
PC’ a(SP)+ *REPORT ERROR AND RETURN 
NO ERRORS BECAUSE 
WAS WRITE HEADER AND DATA, OR 
COMPARE. INH IT WAS SET 
SHCE! FER! HCRC, RMERLI 
270$ sNO SET 
RMERI T ‘EXPECTED STATUS 


SHCE!FER!HCRC, T 
RMERII,SBDDAT  ;RECEIVED STATUS 








CO4 


LOMRANDUSTATUS CHECK 


SEQ 0250 


INE 


248 


SBOE oP DPSOMS TERE: PO 2 BH 


: 


eee Bs 
ante 


saan & 


;WAS THIS A WRITE COMMAND? 


;NO!! 


, GO DO WRITE ERROR CHECKS, OTHERWISE 


& SDR sear comme 
BIT 


we 


000010 061674 


#81T3,510$ 


275$ 
310$ 


;G0 DO WRITE STATUS CHECK 


F 


fa¥) 


- DATA WILL BE CORRECTED 


DATA CHECK ERROR?? 


;NOE! 
;RECEIVED STATUS 


;EXPECTED STATUS 


ao AH 
| i andl 
=~ 


az uty) 


sea ees 


; 
aaa 6 Be 
Sesese 
Soesasts Boe 


oooce0 061674 


100000 001342 


2390S: 


. pes 
ci o plore! 
Sr & steprce 
i 
ask SEES 
Py Be “ 

£ 1 & A 
ee 
Peeve ieee 
SavSaeeaan 
s 
: 


310S: 


300$: 


000400 001336 


oasis 


r 
o- 
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CEIRRDEEEEEEEEEEREREE RADU Y CITE YE BVes ter es CP PRE NER? 


Sc Ihe Ine eee eae tees eee rate haee Toes ete eee eee ee eames eee neon eee hee eee are harm eee eas Reema Tees Tras ee ee re ee ee ee ee ee ee ee en te ee en ee oe a ae ee ae an co ee hee 


DOY 


SEQ 0251 
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= se Re se b « : se “Ss 
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wi ZG Gtenee ge Eaten BL 8 Ghocn + B Snore SEE 
my eo Wim: Glat WEEE peat Te feel a 
K 4 “ F Es 
te) ee) tee 
ab bg St is Ge othe TE aatsa EE a 8 ss "RE 
tf ns acd gtMbthctace SRPPMECe.ce ealleldace Beal 
$ Z = = 
a WSGESEGEA GRBSGEM SSERERGERIA FLRREEGERIS i 
ge a ae a5 ae 


: g om 8 
8 8 

: poeeg §feeeg Ss 
See j Pee Gee oY 
53 


SSSeearre aman. MOMZNeehee 9 RaaNENARRS ESS 
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SEQ O2Se 
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PTS EN RU RD tus Gk Eile 


ONAL TEST 
-77 14:18 


DZRMEA - RNOQ FUNCTI 
BORMEA.PLL > OS TUL 


yo POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR 


7" 
_ 


CALL 


at 
IVED_STATUS 
Tle 


“PIP” SET?? 


I 


Pk BOT ae 
;MOVE SP TO NO ERROR 


at apes 
—_ 


ryBeaas ange 


aman 


2, : 


sooo 


epee ese ris 


dd a ce eg ed wg Od 


Pac & 

$5 ES 
© a” 
3 x 

al = 

E258 Sota 

- fot He 

| oats Beeeee 


beetarief face 
E crcrczals 


— 


ts : 


nem @ 


00134e 
40 
40 
42 


010000 001340 


Et 
Soa 


SScicintieinh tiie 


eh eh ed ed ef nl a 


;WAS IVC ERROR REPORTED?? 


;I1S VOLUME VALID?? 
;EXPECTED STATUS 


; YES?! 
; YES! 


er VOLE. 1S | + ¥ VALID AND “IVC ERROR WAS NOT 


ee 
— younesans 


See 
Se 


PRR een with 


tt tt ot tt 


BESSSSSSSSSESE 


010000 001370 
00 
00 
00 


SP TO ERROR RETURN 


eR aE 


eat ore or ey rie etre ihe “ee ernie errr rere 


~ RMO3 FUNCTIONAL TEST, PART 3 


OZRMEA 
OZRMEA.P11 
12601 061664 
12602 
12603 061670 


1360s Ob i672 
iSeoe Beier 


29-JUL-77 14:18 


162716 





FO4 
MACY11 3001046) 29-JUL-77 17:39 
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 
3908: SUB #4, (SP) ;MOVE SP TO NO ERROR RETURN 


400$: RTS PC ;RETURN TO USER 
500$:  .WORD ;ERROR FLAGS 
5108:  .WORD ; TEMPORARY STORAGE 


SEQ 0253 


r 
"3 


ss 


R 


to he 
or 
F 


Wevssses oh 


bs = = FB be ee 


bb tH Bo Rn bs Be hm he he pe tb 0 Bb bs pn Be he be be be fe a pe he 
_ otk abot at alata 


a 


ee 
mo 








SEQ 02S4 


GO4 
OPaTHe BRIE tarde creck subRoutine ~~ “°° 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 


as Che mare 
one a ICH THERE 

5 OE Use EY UEC Dione ok Caencee Tne 

1 ns pata CONDITIONS ARE TESTED AND REPORTED AS ERRORS 


nor mi a re 
CBP PL TRIBES TER PRS SP EseECBPER cman 


THE, DRIVE, 
: “DVC = 1, INDICATES AN UNEXPE 
:THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 
:(1) JSR PC, STCDRVSTS 
: BR 294 RETURN IF NO ERROR 
: NOP RETURN 0 REPORT AN ERROR 
: ERROR DEFINED SB 
: SR PC, a(SP)+ BACK TO SUB F CHECKS 
: 299 HERE IF NO MORE ERRORS 
STCDRVSTS: 
;CLEAR USER’S ERROR CALL 
84S) ;MOVE SP TO ’ 
SUB #4. (SP) *MOVE SP BACK TO NO ERROR RETURN 
SEE IF “MOL” = “VW" = 1, AND “PIP” = anos 
MOV RMDSI.-(5P) IVE STATUS ON STACK 
BIC #tC<PIP! MOL! w», ise) 
CMP BMOL!W, (SP)+ ";ARE MOL,VV AND PIP 0.K.?? 
BEQ 30$ >YES!! 
;REPORT AN ERROR IF MOL = 0 AND “OPI = 0 
BIT MOL , RMOSI 31S MOL ON ?? 
16s ;YES!! 
I 1,RMERLI *WAS "OPI" SET?? : 
10S > YE ° =0 
MOV I T  ;EXPECTED STATUS 
BIS T 
MOV ROSE, SB0DAT ; TVED STATUS TATUS 
Rive tathen 
MOVB a(SP) soa 
SUB #2, (SP) HOVE SP 10 R per fe ERROR 
SR PC + 
SUB #10, (SP) TORT Sp Baek BACK ERROR RETURN 








8 
fo) 
3 


os gee 
ie 
a & 


ae 
3 


001370 


its 
“4 
j a 
mo 


Meee Goiaes 
13737 RNER2 SGDOAT 
noes T 
ee ADD #4, (SP) 
me Bla 
JSR Be Stops 
SUB #10, (SP) 
NOP 





HO4 
STATIC DRIVE STATUS CHECK SUBROUTINE 


sP}+ 


;PUT ERROR REG 2 ON STACK 
;BRANCH IF NO ERROR 


{s A DEVICE FAULT 


sANY DEVICE FAULT?? 
EXPECTED STATUS 


;RECEIVED STATUS 
3 SP TO *S CALL 
WRI ERROR Fi ca. 
; MOVE FOR OR 
;REPORT ERROR VIA USER 

;MOVE SP BACK TO NO ERROR 


DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 SEQ 0255 
DZRMEA.P11  29-JUL-77 14:18 

12658 062016 000240 NOP 

12659 062020 10S: 

1 sREPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND “IVC” = 0 
1 06202 be avy, RMOSI 7 = 0? 

1 y I SIVC, RMERCI WAS "IVC" SET?? 

1 > BNE 20S :YES-DONT REPORT “VV" = 0 
e666 HOY RDS, SGOOAT EXPECTED STATUS 

ists oe HOV RHDSI  SB00AT gp! RECEIVED STATUS 

1 > MOVB #210, a(SP) sWRI N CALL 
1267 SUB 82, (SP) : TO RE FOR ERROR 
1 JSR PC’ 3(SP)+ : ERROR vIA 

: ie 1 SUB #10, (SP) MOVE SP BACK TO NO ERROR 
i 7 20$: 

1 REPORT AN ERROR IF DRIVE IS OFF CYLINDER "SKI" = 0 

: 6211 7 020000 001340 BIT ap P,RROSI 113, ORIVE OFF CYLINDER?? 

i pee! e737 040000 001370 BIT = 85K 1, RMER2I iHAS SK gh ss emt 
1 1 1 1 rt 1140 MOV ROS T  $€XPECTED STATUS 

i rea rae ae SP ; 

1 44 i 01142 MOV RMost T  ;RECEIVED STATUS 

1 1 & 000004 ADD a4, (SP) MOVE SP_TO USER'S ERROR CALL 
i i Te po00de SO ee) RTT TO RETURN FOR ERROR 
1 1 736 JSR PC’ a(SP)+ *REPORT ERROR VIA USER 

! 1 16 000010 Sug #10, (SP) *MOVE SP TO NO ERROR RETURN 
1 30S: 

1 

1 

2 

1 

ieee 

1 

12698 

ibe 

tere tee 

1 — 

1 a 

ia t 

1271 +. 

1 ie 

1271 


;REPORT AN ERROR IF “SKI” = 1 


@ o-- ee ee 





T04 
PART 3 SPATE DRIVE Starlis Geck’ subkbdtme™ =" i sa 


001370 ) BIT 8SKI , RMER2I ;IS THERE A SEEK INCOMPLETE ERROR 


040000 

man gig | Bag (Bho ome 

Bote oo0000 So ep) eet ROPER IN USER” ERROR CALL 
a8 ge, Se cs ERROR y i) use oR 


a 


eat 





vaxhth 
12718 062316 


sAUGMENT THE RETURN ADORESS IF ANY ERROR WAS DETECTED 
SP ;MOVE SP TO USER’S ERROR CALL 

} "WAS AN ERROR DETECTED?? 

SP) sNOE! MOVE SP TO USER’S ERROR RETURN 
SP) NO - MOVE SP TO NO ERROR RETURN 


#4 
RTS PC ;RETURN TO USER 


— 





ieee See & 
agueae 








JO4 
DZRMEA - RNO3 FUNCTIONAL TEST, PART 3 MACYII 30(1046) 29-JUL-77 17:39 PAGE 255 SEQ 0257 
DZRMEA.P11 = 29-JUL-77 14:18" COMPOSITE ERROR CHECK SUBROUTINE 


-SBTTL COMPOSITE ERROR CHECK SUBROUTINE ; 
eh stele Ten Gem LH Toe GeeaeTaTUS 


ii 


es 


a Be eg) 
B 


ERROR 
JSR PC, a(SP)+ GO ER 1 reek Ger MORE Ble CHECKS 
779 RETURN HERE IF NO MORE ERRORS 


s NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 






062402 CMPERRSTS: 
; MASK STORE OF 
5 A ee ee oe 
Goes Brarae 1370 001200 MOV RMER2I sTwpe STORE RMER2 AT TEMP STORAGE 
047637 000000 001200 BIC a(SP),$ ;MASK RMER2 
CLEAR USER’S ERROR CALL 
teens 062716 000006 ADD 86, (SP) ;MOVE SP TO USER’S ERROR CALL 
iesvie 600004 ce #4, (SP) : AT NO RETURN 
737 HU17 ated i “sre. seman iat fens to REPORT?? 
1 001176 01142 MOV STMP1, SBDDAT Bang STATUS FOR TYPEOUT 
Biss iH, oda 
: 1 00068 MOVB web 9(SP) DATA CHECK ERROR a 
77s Geselo Ooarse Fee Petatsey+ ca 
le 162716 000010 SUB #10, (SP) *MOVE SP BACK vin BRANCH 
16 000240 oi NOP 







SRE 


sSEE IF THERE ARE ANY ERRORS TO REPORT IN wen 
001200 TST STMP2 ANY ERRORS IN RMER2? 
1420 BEQ 10$ SNO! # 


001142 MOV TMP2,SBDDAT —; RECET Ivep STATUS FOR TYPEOUT 
CLR Sippat STATUS FOR TYPEOUT 
16 000004 ADD #4, (SP) ' MOVE SP TO S ERROR CALL 


ae 






SKE 


ee ee te ee ee ee ne ee ee eee ee ee ee a ee ee ee 
it 


4 
B8 
8 


oF 


KO4 





DZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 256 SEQ 0258 
DZRMEA.P11  29-JUL-77 14:18 COMPOSITE ERROR CHECK SUBROUTINE 

12792 MOVE 867, a(SP) ;WRITE ERROR NUMBER IN USER’S CALL 

t z. FR BR SPER), iReMGn ehnole Ve use — 

; x SUB #10, (SP) "MOVE SP TO NO RETURN 

i pesere 10S: 

1 sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

1 ADD 84, (SP) sMOVE SP TO USER’S ERROR CALL 

i is1B gor) jHAG, THERE AN ERROR CALLED?? 

1 26L B00 84, (SP) ;YES - MOVE SP TO ERROR RETURN 

t 20S: #4, (SP) ;MOVE SP TO NO ERROR RETURN 

12808 305: RTS PC “RETURN TO USER 

12808 





SEQ 0259 


LOY 


29-JUL-77 17:39 PAGE 257 


STOP AND SHUTDOWN SUBROUTINES 


» PART 3 MACY11 30(1046) 


FUNCTIONAL TEST 
29-JUL-77 14:18 


RMO3 
i 


Pl 


S 

) 
THE HALT MESSAGE 
ING STANDALONE ?? 


PUT NE 
s3PUT Ie 
NH 
NEW 

- GO TO END OF PASS 


GO TO START 
(CR) <LF><LF> 


99 

9°98 

9° 

NTERRUPT 

sPUT 
: PUT 
: POP 

; CONTINUE 

: TYPE 

! RUNN 

: YES 

= NO 

ED’ 


OW CONSOLE I 
~(SP) 
-(SP) 
BIT I 
SP 
SP 
START 


DROP PRIORITY T 
MOV 
RTL 
"NOP 
me Toy 
RTI 
RTS 
TYPE 
TST 
BEQ 
IMP 
IMP 
100$: .ASCIZ @TEST WAS HALT 


STOP: 


SBTTL STOP AND SHUTDOWN SUBROUTINES 
#64S; 
itd 
PC 
100$ 
4 
10$ 
SEOP 


64S: 
Ra 
65S: 
10S: 
SHUT: 
os 
-EVEN 





‘ , ' : : ’; 
Sa 

eeleelan eelesleslonlouleeleelesleulevlevleelen ee 
+ * 


de ed ed Se ed a ed ed ed de tS SH 





__—_—_—_—________—— ee ee 


MO4 
DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACYI1 30(1046) 29-JUL-77 17:39 PAGE 258 SE@ 0260 
DZRMEA.P11 29-JUL-77 14:18 SAVE AND RESTORE RO-RS ROUTINES 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


; 7 JHHIHHHIIHHHHIHHHHIHHHIHHHHHHHHHHHHHHHHHHHHHIHHHIIEEHIHHEHEHE 
; SAVE RO-RS 
; #CALL 


ty , CG 
; XUPON RETUR FROM SSAVREG THE STACK WILL LOOK LIKE: 


& 
+ #TOP=--( +16) 
3% 42---(4+18) 
: “RS 


% “R3 
3 #+10---R2 
3#+12---R1 
3#4+14---RO 


SSAVREG: 


SVSSSS 





Ue 
+++ ++ 


teri 


Pepe 

SHOHALOMLOS 

BAVAssessess 
BEER 


AESESIELES 
RUMNALOMRHo 





;#RESTORE RO-RS 
it, __,RESREG 
000022 SREG: oy (SP)+,22(SP)  ;;RESTORE PC OF CALL 
MOV ($P)+,28(5P) i SRESTORE PS OF CALL 
m iecee eer ea 
i eM 
MOV (SP)+)Re POP STACK INTO Re 
my SIAR ER ANB 


-SBTTL BINARY TO ASCII AND TYPE ROUTINE 





asaaurine He Geto WS Genes w IeRTT Ett MoGEN TO 8 Lea 
tSBINBRY SEIT hOMBER aN Wee it 
nae MOV NUMBER,-(SP)  ;;NUMBER TO BE TYPED 
;# TYPBN 3; TYPE IT 
STYPBN: MOV R1,-(SP) ;;SAVE_R1 ON THE STACK 
000008 MOV 6(5P),R1 ::GET THE INPUT NUMBER 


- RMOZ FUNCTIONAL TEST, PART 3 
29-JUL-77 14:18 


OZRMEA.P11 










PRBBAHSS AS SASS: 


ee ee i ee pe hs ee mb ee ees Fe ee ee 







MACY11 3001046) 


SEC 


1S: #0, SBIN 


IN 
IN 


Ky 
ecg) iaigp) 


nies 


29-JUL-77 17:39 PAGE 259 
BINARY TO ASCII AND TYPE ROUTINE 


SEQ 0261 


SET “C* SO CAN KEEP TRACK OF THE NUMBER OF BITS 


is 1 nis Bi TO AN ASCII “O”. 


CHARACTER EQUAL TO THIS BIT 
Hae His 


g JIS BIr 
100,00 The, 


KEEP TRACK OF BITS 
Bir 

+3 INTO R1 

3 sADJUST mea STACK 

;;RETURN TO 


a Bien Bthary To a i aoe CHAR. AAD TERMINATOR 


NUM, -(SP) 


a 


#’-, 1(SP) 
18: RO ~ 

H, ORS 
2s: Re 


g 
SRS AMIS a meso one SSeS SSS 


NARY fe A 5-DIG 
ia fee achat te 
A MINUS SIGN y Witt 
ING ZEROS WILL ALWAYS BE BE 


INARY NUMBER ON THE STACK 
ROUTINE 


= 
5sCuai & 


i Ae 


a eat ae © 
+ ts nany 


POS. 

33 R EG. 
3% 
33 I TTF To A BLANK 
a3 
He “iT IGIT 

3BR IF 
i INCREASE BCD DIGIT BY | 

;;ADD BACK THE CONSTANT 

*:CHECK IF BCD i 
et ae nt I NG 0’S? 

°BR IF YES 


HE ne 


BE TEE Sh eo wet 


BOS 


feat To Dacia. we Wee Routine 


( 
I 


; 





1 FOR TYPING 
acs 





a 
i 
NTO 


aad 
SHES Hest vx 


nee 





4 


TO OCTAL (ASCII) AND TYPE 


NARY 


phaatareSSenenetsscesdaas 


g # ff 





Me HE SE SE SE SE AE AE SE Sb Hb 4 Ha HE EE HE 


ETH 
#0C 


aIseReR eet 


O45. 
gy ¢ 
> Coad 
"a9 
o& & 
bf a 
: g - 
zy HES 
‘. : Pao 
a y hee 
a an 
2 § 
z= 


; ;O=SUPPRESS LFADING ZEROS 


;#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


*STYPOS OR STYPOC 


3; 1=TYPE LEADING ZEROS 


;NUMBER-TO BE TYPED 


;CALL FOR TYPEOUT 


;;CALL FOR TYPEOUT 


;;NUMBER TO BE TYPED 


,-(SP) 


” MOV NUM 
TYPON 


. 


;;NUMBER OF DIGITS TO TYPE 


;;LOAD ZERO FILL SWITCH 
;;ADJUST RETURN ADDRESS 
IX(6 


g 

# a 
% zs 
acze i 
cr z 
Beare as 


B44 BAB 


sestuce 


=tond 
c= amd 


auassas 


PR AAA eA RRRROR ARORA RR RCCL ELLE 


Pe eh ed a Od dd ed ed ed gd ad dd ak gd dh dd a ed a 








COS 


i PA we rt gy PART 3 BORA FO‘REHRD cAgcHYS Ato Hae? PASE PPA 


SEQ 0263 


2g w : g 
eas ap 9 
ar ee es : 
B Sagtto, a ys HEGRE & 
st estes a BS A. a5,2 58g 
vores pertees bath ne et - ee 
—+ wo 

yisss Hiskoes’ § UtabttatiFiasan! each 
a 

sas ie f ie dea 
ecizie Bae 3%. Rewinn' Seznzl. Sse ehanees 


waa. 


SaBBesseseidadddadseenges oft DaeabERpeceennt 


: 
- 


$ fin. 2 


o $ 


gf 


4] 
w 


Bae aE 


ronieeeeraeeeemmmcenanelll 





Oe ee te 


BE USED AS THE FILLER CHARACTER. 
CHARACTERS REQUIRED. 


MUST TERMINATE WITH A O BYTE. 
CHARACTERS AFTER A LINE FEED. 


JHHHHHHHE HEHEHE 
MESSAGE 
OF NULL 
CHARAC 
NUMBER 
CHARAC 


5 | JHHHIHHHHHEHHEUHHHEEHHHEHHHEHHEHHE 
;#ROUTINE TO TYPE ASCIZ MESSAGE . 
LL INSERT A 


;#THE ROUTINE WI 


te 


; #NOTES: 


#1) USING A TRAP INST 


> *¥CALL: 


RUCTION 


eer reco 


a dh me rg ed dd me dd ed dh dd dd te ed dd de He et td 


: 


feet Pet Ct Ba Bat Be Ben bh Fe it fh bn hes Bo dm ee 


PeSRESERSKE ad to 


BER RR ERR bret i bist 


$=} 
r= 


a) 


Dae pane iene fees pet Pas Poa Ran pes Poe Be Bae bs fn Bt be ban Pee Bene Pee fan Pees poet Boo bt fo bens be Bon Bae Bon fees fe Poe tee int Gee ee ae Dee 
BURR PES 


WIWIWIWI WIIG) IW II WII GIGI GI IG) Ge) 
ST LTT TT aT eT aT TT 


ee es fees ens het Be Ben et bs Be 


WONTMCW--O 





RMO3 FUNCTIONAL TEST, PART 3 Y11 30(1046) 29-JUL-77 17:39 PAGE 262 SEQ 0264 
1 29-JUL-77 14:18" bE boat ite 
it TYPE _,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3% TYPE 
3% MESAOR 
;# 
062834 001173 STYPE: TSTB $STPFLG ;;1S THERE A TERMINAL? 
063540 BPL 1S ::BR IF YES 
Neen HALT js HOL THERE IF NO TERMINAL 
1S ROV 3 (SP) + 
MOV Re tses RO + Eye AO REss OF ASCIZ STRING 
001242 CMPB 9s SAPTENV, SENV s SRUNNING IN APT MODE 
BNE 625 +: NO CK FOR APT CONSOLE 
001243 ITB § 8APTSPOOL, SENVM 35 SPOOt TO APT 
Q 625 >? NO OR CONSOLE 
MOV RO, 61S ::SETUP MESSAGE ADDRESS FOR APT 
ISR PC, SATY3 He TO APT 
615: . WORD oF 
001243 62§:  BITB sAPTCSUP,SENVM ;;APT- 
BNE 60S >: YES, SKI OUT 
2s: MOVE =‘ (RO)+,-(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4§ -:BR IF IT wae! THE TERMINATOR 
TST (P+ isIE INATOR POP IT OFF THE STACK 
60S: MOV (SP)+,RO 3; REST! 80 
3S: ADD #2, (SP) *:ADJUST RETURN PC 
RTI ; ; RETURN 
4S; CHE SHT, (SP) BRANCH IF <HT> 
CHP BCRLF,, (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ ;;POP_ <CR><LF> EQUIV 
Ore 3; TYPE A CR AND LF 
CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
BR 2g >:GET CHARACTER 
cS: ISR PC. STYPEC 360 TYPE THIS CHARAC 
6S: CMPB  s«SFILLC,(SP)+ 33S IT TIME FOR FILLER CHARS. ? 
BNE 2s ;;1F_NO GO oN 
MOV SNULL , -(SP) *:GET 8 OF CHARS. NEEDED 
AND THE NULL CHAR. 
7S: DECB  =-«1( SP) *:DOES A NULL NEED TO BE TYPED? 
BLT *?BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, STYPEC *:G0 TYPE A NULL 
DECB § SCHARCNT ::DO0 NOT COUNT AS A COUNT 
BR 7$ ; ; LOOP 
sHORIZONTAL TAB PROCESSOR 
063722 112716 OO0040 QS: MOVB = #”_—, (SP) »:REPLACE TAB WITH SPACE 
063726 004737 063746 9S: JSR Pc, $TYPEC :: TYPE A SPACE 
063732 132737 000007 o64012 BITB 87; SCHARCNT BRANCH IF NOT AT 
Ob3740 001372 BNE 95 >: TAB STOP 
06 (SP)+ POP SPACE OFF STACK 


005726 TST 
063744 000724 BR $ 33 CHARACT 
063746 105777 115212 STYPEC: TSTB a@STPS ;;WAIT UNTIL PRINTER IS READY 





DZRMEA - RMOZ TIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 263 SEQ 0265 
DZRMEA.P11 Ape 14:18" TYPE boitine © 
13120 063752 100375 BPL STYPEC 
ooo002 115204 MOVE 2(SP).aSTPB sLOAD CHAR TO BE TYPED INTO DATA REG. 
1318 118677 000015 haeaue CHP ack, ct) iTS CHR CHARAC ER A CARRIAGE RETURN? 
Islet ears itebyy oswolz Gihe  Stemewt Yee “CLEAR CHARACTER COUNT 
131s 1ce7bb oo0012 oooo02 1S: cree ate .e(SP) i 1s Camis CHARACTER A LINE FEED? 
His SH iss Tm fe” FERRET SE lan 
13158 SeuGtS Ab3550 scuarcnt: aero 
13130 064014 000207 STYPEX: RTS PC 
13136 .SBTTL SCOPE HANDLER ROUTINE 
ETE ih THIS ROUT YT CONTROLS THE NG OF G OF SUBTESTS, IT T MILL INCREMENT 
i313 ay Ue it THE TEST me aie NTO DISPLAY Re REG. (DISPLAY<7:0>) 
He ine sat Ce 
13140 + eeuli=i LOeTBST TES ATIONS 
13141 :#SWO9=1 LOOP ON 
jwise een LOOP ON TEST IN SWR<7:0> 
13144 +i SCOPE ;;SCOPE=I0T 
13145 064016 SSCOPE: 
iy? eOeR BONTSS 062614 JSR PC, STOP aitenauien walnatitiene 
13148 beaded g3e777 040000 115122 1S: BIT #81T14, ISWR 3 LOOP ON. PRESENT TEST? 
13151 jeeeeaSTART OF CODE FOR THE XOR TESTERSeess 
13152 064034 000416 $XTSTR: BR 63 HY otha an SOR” TES TER CHANGE 
1312 >? THIS INS TION TOA” (NOP=240) 
13154 064036 013746 o00004 MOV GSERRVEC,-(SP) 5 ;SAVE THE S OF THE He ERROR VECTOR 
131ee Oe Ry SES SRE FF Tire, 
13187 HOV (SP)+, QSERRVEC ;; STO THE ERROR. VECTOR 
: MP (SP)+, (SP)+ >= CLEAR STACK AFTER A TIME OUT 
ae a Hav se )+, SUERRVEC i RE 58s ERR WT test 
6$:;#8888END OF CODE FOR THE XOR +ECTERSSeRS 
13163 000400 115054 BIT #81108, ISWR ;;LOOP ON SPEC. TEST? 
13iee oes posote a esp) eran M TENP. LOCATION 
1316 ae 117716 115044 HOVE BSUR, (SP) ; :PICKUP THE aESTRED TEST NUMBER 
022716 000027 CMP #27, (SP) | ;BRANG THE SPEER IN tact 
13188 ile Boeaie BLT as’ BRANCH IF TEST NUMBER IS OUT OF RANGE 
13170 1 001116 MOV (SP), STSTNM ; UPDATE THe TEST NUMBER 
1 17 1 16 DEC (SP) He BY 
131 4} 16 ASL (SP) ::SCALE THE TEST NUMBER AS AN I 
13173 064130 062716 064334 ADD SSSWOSTBL, (SP) ;:FORM THE ADDRESS OF TEST POINTER 
13174 O64134 013637 001122 MOV 3(SP)+,SLPADR ;;SET LOOP ADDRESS TO DESIRED TEST 
13175 O64140 000466 BR SOVER G0 LOOP ON THE TEST 


ws 
3a 


Pe fe mm Bas Bt hee mt eee ie es bow fee Bos fees a ent fe ben om 


WWW) GI) WI) WI WWW WW WWW WWW) 
ZESKKLES-LSSBIRRIBR=AB 


RBBB 


fre Dan fet Gee pas pe 


ASSIS 


PRE RERY RT TAT RTT AT RT AT TTT TNT TATYANA NRT RT RT RTT RT TTY I TT em ae em fee Pn Fe Sem fee me fis B= ew ce ee 
~8 
[ao 


FOS 





SSeS IES 
ee 


NOU LIU 


ZRMEA - RMO3 FUNCTIONAL TEST, PART 3  WMACY11 30(1046) JUL-77 17:39 PAGE 264 SEQ 0266 
-Pll  29-JUL-77 14:18 SCOPE HANDLER INE 
005726 8S: TST (SP)+ ;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
44 ree 001117 2S: TSTB LG ;5HAS GN OCCURRED? 
001131 001117 , SERFLG Rey! FOR THIS TEST OCCURRED? 
BH ol ot 
001000 114764 I 1T09, 2SWR :?LOOP ON ERROR? 
1404 BEQ 4§ ::BR IF NO 
mee 001124 O01122 7S: HOV SLPERR, SLPAOR ::SET LOOP ADDRESS TO LAST SCOPE 
001117 4s; SERFLG ;;ZERO THE ERROR FLAG 
001206 CLR STIMES :?CLEAR THE NUMBER OF ITERATIONS TO MAKE 
15 BR i SESCAEE TO THE NEXT TEST 
ef 004000 114732 3S BIT eBIT11, @SHR INHIB T ITERATIONS? 
001230 TST $PASS ::1F FIRST PASS OF PROGRAM 
1406 ; BEG 1$ He INAIEIT ITERATIONS 
1 ' ee TERA 
Rossa? pt EP 001120 CMP St thes, SICNT + EEK The NUPCER Fe r10ns MADE 
BGE SOVER ::BR IF y REQUIRED 
1 000001 001120 1S: MOV #1, SICNT + REINITI ION COUNTER 
Ob 4332 001206 MOV SHKCNT, STINES iicet IONS TO DO 
1 1116 SSVLAD: INCB TS He 
113737 001116 001226 MOVE §STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
011637 001128 HOV SP), SLPAOR >:SAVE SCOPE LOOP ADORESS 
1 ee 
eit ese rt 13% CLR He ADDRESS 
064310 il 000001 001131 MOVB 81, SERMAX > ONLY ALLOW ONE (1) ERROR ON NEXT TEST 
6 O1 001116 114632 SOVER: MOV STSTNM, DISPLAY ;;DISPLAY NUMBER 
13716 001122 MOV SLPADR; (SP) RETURN ADDRESS 
oooo02 RTI 2 FIXES PS 
000012 SHXCNT: 10. MAX. NUMBER OF ITERATIONS 
006776 _— “WORD  TST142 ;;STARTING ADORESS OF TEST 1 
007174 "WORD  TST2+2 ADORESS OF TEST 2 
607350 "WORD  TST3+2 ADORESS OF TEST 3 
“WORD  TSTY+2 ADORESS OF TEST 4 
344 010544 "WORD  TSTS+#2 ; OF TEST S 
aie 011536 “WORD  TSTb+e2 OF TEST 6 
12776 “WORD  TST7+ OF TEST 7 
064352 014020 “WORD  TST10+2 OF TEST 10 
eM Ois01e "WORD  TSTlil+e OF TEST 11 
16254 "WORD TSTl2+2 OF TEST 12 
eM 17274 “WORD TST13+ OF TEST 13 
"WORD TST144 ST 14 
OS4 021642 "WORD TST1S+2 OF TEST 1S 
064 “WORD  TST1b+2 OF TEST 16 
oes 372 "WORD  TST17+2 OF TEST 17 
“WORD  TST20+e OF TEST 20 
Ob4 764 “WORD  TSTelte OF TEST 21 
ae "WORD TSToe+e 5S OF TEST 22 
031010 "WORD  TST23+e OF TEST 23 
“ WORD ToTed+ OF TEST 34 
034112 “WORD Tereeee OF Teer 26 
ete 035134 WORD 127 OF TEST 27 





: TST27+2 
-SBTTL ERROR HANDLER ROUTINE 


GOS 


SEQ 0267 


iy 2 88 : " : 
z8 f 36 ag : 
me ifs Bice bde | 

ms, Eab deine abe | 

eg, © 1 Bs 0k ope oe tel 
@ Eye Sse sate eee cent Beveseoeeew es i 
y  F : Se 8 pr tesgk® Beak aoa payers a g 
: ib a = Mieateets Gans aeve bentiSattad BCG: 
: ‘aan | 3 eee ee 
ty fiesta MRI lees + 
_ ae - bebis boas aE nas fis Gstded 3 : 3 
= fee E Soscatensiivot Eyiecesravicgengs ee cr 
a iea.§, 6 ft ae a aft 


== 8 8 


aumGy 2 183 
gee 


001117 

114412 
000 
1 
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— 
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Sag pReoRodae Ian TOReN Se 


Ser aaa 
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TIONAL TEST, PART 3 MACY11 30( ) 29-JUL-77 17:39 PAGE 266 0268 
ee-du-77 14:18 THY INPUT. ROUTINE 6s 
ENABL LSB 
000000 STKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
000000 STKQIN: .WORD OQ ;; INPUT _ POINTER 
poo er : .WORD O ; OUTPUT POINTER 
1 TK@SRT: .BLKB 1 3; TY KEYBOARD QUEUE 
4621 STKQEND=. 
4622 - EVEN 


5 ¥TK INITIALIZE ROUTINE 


THIS INE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
 ¥CALL: 
2% JSR PC, STKINT 
* RETURN 
005037 O646l2 . $TKINT: CLR STKCNT ; CLEAR COUNT OF ITEMS IN IN QUEUE 
012737 O64620 064614 MOV SSTKQSRTSTKQIN ;;MOVE THE START 
Nive Beer eee | ERROR. (AACE A to ete 
feds 4 ney fellas ii PR “DOE F 
Neate 114270 nev #100, aSTKS + ENBoLE EY GonrD INTERRUPT 
000207 RTS PC -:RETURN TO CALLER 
+ #TK ICE ROUTINE 
tSTHIe Re NE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
Wt ivve wee se INPUT BUFFER AND PUTTING 
;#IF THE CHARACTER IS A “CONTROL-C” (fC) STKINT IS CALLED AND 
UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (SHUT) 
774 114264 $TKSRV: MOVB § aSTKB,-(SP) ;;PICKUP_THE CHARACTER 
2716 177600 BIC #tC17?, (SP) :: STRIP JUNK 
Boing? C2003 a gl CHIE NWO” 
iowioy 065006 TYPE SCNTLC i TYPE A Font ROL -C (40) 
064622 J PC STKINT jSINTT THE KEYBOARD 
Bees? 062644 TR cae ETN CoRESTART 
1627 000007 1S: CHP (SP), 47 i315 17 A CONTROL 
000176 001154 CMP #SWREG, SWR 21S SOFT-SWR SELECTED? 
1500 : BEQ 6$ :G0 TO SWR CHANGE 
2s: 
° 000001 064612 CMP 81, STKCNT 33 Is THe QUEUE UE FULL? 
1 001212 Bee *:RING THE TTY BELL 
gos7ee TST {Sp)+ 3s CLEAN CHARACTER OFF OF STACK 
; 1667 000023 3 CHP (SP), #23 $3 IT A CONTROLS? 
00077 114162 cL STKs : DISABLE Try KEYBOARD INTERRUPTS 
05777 114154 318: TSTB  a$TKS CATT Fon A CHAR 





I05 


RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 267 
1 29-JUL-77 14:18" TTY eit ROUTINE SEQ 0269 


4 


D Pl 


100375 BPL 





ue 177% 114150 Ste asTKe.-(SP TOOT  mcTER 
3346 oierig 77600 BIC atc 17?, (SP i Rex I SHOT AECL I 
: 1 ch (S ih ie) 21S IT A_CONTROL-Q? 
ea eee 000100 114126 ov a8 eres He KEYBOARD INTERRUPTS 
064612 32S: INC STKCNT He THIS CHARACTER 
000140 cH (SP), #140 -:1S IT UPPER 
1627 000175 CMP (SP), #175 *:TS IT A SPECIAL CHAR? 
BGT 4§ + BR aNGH Py 
16 000040 IC #40, (SP) MAKE IT CASE 
112677 177530 4g: HOVE (SPs @STKQIN ;;AND PUT_IT IN QUEUE 
4614 064621 fat: STKGIN, #STKQEND + OG ERO . 
001003 ~'s BNE ::BRANCH IF NO 
O1e737 064620 064614 a Hoy SSTKQSRT, STKQIN 3 THE POINTER 
ad |e 





©» SESE 46-36-36 36-36 JE 0-6 Se Se SE SE SE gS aE SE aS SES SS 0 HH HHH 


LSROUTINE ENTERED PAOH THE TR HALER, AND MILL 


;*¥SERVICE THE TEST FOR CHANGE IN SOFTWARE SaricH REGISTER TRAP 


#CALL WHEN OPERATING IN TTY I 
065110 022737 000176 001154 S$CKSWR: CMP G, SHR , ene THe ob SOF T-SHR SELECTED 
Ob5116 001124 BNE 15$ EXIT IF NO 
120 105777 114034 TSTB = ASTKS Hid A ea he WAITING? 
ea 100121 BPL 15$ id EXIT 
1 17746 114030 MOVB  9STKB,-(SP) 3 3YE 
132 B27 16 177600 BIC wtC17?, (SP) MEK 17 7-BIT ASCII 
beeias 00 1350 BNE Se . iTS NOT Put in THE TTY QUEUE 
:AND EXIT 
. o RELEASE RARE KEE SOINT FROM ELTHER THe ME TTY INTERRUPT 
: ECONTROL TROL IS PASSED TO cuts Po POINT FROM SERVICE 
ie ONTROL =e Be tR TREE” SHE SOFTWARE at SOPTMERE SuTToa! Re REG BP ING SELECTED. . 
065144 123727 001150 oo0001 és: CNPB Pt a ‘f j FORE We sc 
Ob515¢ 001674 BEQ eS 
ie 
reat 064622 JSR STKINT Hi Fie Fe tt SuEuE 
ee! 113772 CLR astks QT KEYBOARD INTERRUP 
165 112737 O00001 001151 MOVB #1, SINTAG INTERRUPT MODE OICATOR 
174 104401 066020 TYPE  ,SCNTLG re THE CONTROL-G (1G) 
ios 2S SGTSWR: TYPE SMSUR CURRENT CON 
1 176 MOV SWREG, -(SP) 39h We SURES COREE FOR TYPEOUT 
10 1 TYPOC 3300 TYP =OCTAL BSCTTCALL DIGITS) 
12 104401 066036 TYPE ,SMNEW 
19S: CLR ~(SP) + OP PAR COUNTER 
CLR -(SP) tt THE NEW SWR 
Obeeee 105777 113732 73: TSTB aSTKS ::CHAR THERE? 
100375 BPL 7§ ::IF NOT TRY AGAIN 


be be ee be Be pe ae Be Ge Pe Pe Be Pe Pe me ae Pn Be Be Be Be Pe Be Be ee an be Be Be an Pe fe Pe Pe Pe Pe ee Pe Pe Pw me me Pe bn Pe Pn bs Pe Pe ee Pn 








BR 
-DSABL LSB 


55 ESE 89 98 3 9 9 A a 
sKTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


: ROCHR ;;GET_A CHARACTER FROM THE QUEUE 
1 RETURN HERE t;CHARACTER IS ON THE STACK 
i ;:WITH PARITY BIT STRIPPED OFF 


OZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 268 SEQ 0270 
DZRMEA.P11 29-JUL-77 14:18 TTY INPUT ROUTINE 

1 1 113726 MOVB  @STKB,-(SP) ;;PICK UP CHAR 

1 bier ie 177600 BIC 8tC17?, (SP) *:MAKE IT 7-BIT ASCII 

1 1627 000003 CMP (SP), #3 31S IT A CONTROL-C? 

1 1015 BNE 9 : BRANCH IF NOT 

t never Ape beep” BF Ee ae” (PC) 

i 1ea7e? 001151 000001 cee SINTAG, #1 j ;REENAGLE TTY KEYBOARD INTERRUPTS? 
1 016777 000100 113664 MOV $100, 9STKS ::ALLOM TTY KEYBOARD INTERRUPTS 
i i 137 062644 IMP SHUT t:CONTROL-C RESTART 

i ie 

1341 021627 O00025 9S: CMP (SP), #25 31S IT A_CONTROL-U? 

reat 001005 BNE 10S ::BRANCH IF 

zit 104801 066013 TYPE SCuTLU *tYES. ECHO CONTROL-U (fU) 

i i 000006 20S: ADD SP : IGNORE PREVIOUS INPUT 

000737 BR 19 *2LET’S TRY IT AGAIN 

eat 

tigb 10S: ge A 3;I1S ITA ope 

1 TST 4(SP) He IS IT THE FIRST CHAR? 

1 BEQ tis + BREACH ie YES 

1 113612 MOV 2(SP) , aSWR :: SAVE NEW 

es a a Ci tae 

te? 1 GPS STNG a1 RENEE TTY GD rwrenruPrs? 
1 113570 MOV #100, 3STKS :tRE-ENABLE TTY KBD INTERRUPTS 
1 15$: RTI + RETURN 

i 165: JSR Pc STYPEC : ECHO CHAR R 

FE BLT ( ‘ + ER ANICH oF YES 

1 CMP (SP), #67 *:CHAR > 7? 

i . Bot EBS (sp)¢ + CTRIP. E BSE 

t Bue 2(SP) 21S tT THE Her CHAR 

1 BEQ 178 BRANCH IF YES 

i ASL (SP) :2NO, SHIFT PRE , 

ASL (SP) He OVER 

1 ASL (SP) : ROOM FOR NEW ONE 

1 17S: INC 2(SP) 5s sKEGP COUNT OF CHAR 

! BIS 5g(SP), (SP) j5SET IN New CHAR 

e 18S: TYPE SQUES : TYPE ME CRS CLES 

1 

1 

1 

1 

ties 

1 

1 

13454 

13455 


-" et 





wa 


he a > 4 


Vata ZIs= 


ET EER 





ee ee ee ee ee Be ne te ne Bee ee ee ae ee ee en ne ee ee Be ee ee be be Be Pe bs be be ee Pe ee 
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116% 
000004 
000004 
bes “Os 
“ied 064612 
005337 064612 
Se ie cca 
1 
16 064621 
Oie737 064620 064616 
10346 
065776 
101 ae 
000177 
1 
bes eR on 
aie I 
frig, 578 
000134 065774 
065774 
066013 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 269 SEQ 0271 
TTY INPUT ROUTINE 
, 
Soom: oy SESE, gH gon TE Fe nO 
af Ne; HR Rete gegreer 
MOV 864S, -(SP) : :PUT ON STACK 
ae RTI : : :POP eH BE 
1S: TST STKCNT ;;WAIT ON A CHARACTER 
DEC are “ithe ; sDECREMENT THE COUNTER 
INC Sh a He THE 
cH STKQOUT, #STKQEND’::DID IT GO OFF OF THE END? 
= HOV gS rKasrT, sTKqouT" ; j INTER 
5 JHE HB Hi} HIE 
*KTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
pgCALL: OLIN ssINPUT_@ STRING FROM THE TTY 
: HH T CHARACTER WILL BE ON THE STACK 
i onan aate: SO ONIRRT WILL BE A BYTE OF ALL O'S 
SROLIN: MOV R3, -(SP) ; s SAVE 
CLR 53h) ss CLEAR RUBOUT KEY 
1$: MOV eSTTYIN,R3 33 ss 
2S: CMP SSTTYINGS. ,R3 $3 FULL? 
BECER $B Fob One CHARACTER FROM THE TTY 
MOVB  (SP)+, (R3) :3GET CHARACTER 
10S:  CMPB #177, tR3) 3315 ft @ RUBOUT 
ae (SP) Hc IS THE FIRST RUBOUT? 
BNE 6$ ss F_NO 
Hove i ay He A BACK SLASH 
MOV $-1, (SP) ;;SET THE RUBOUT KEY 
6S: DEC $3 BY ONE 
ys f , SSTTYIN ii T pperv’ 
nove (R3), 98 LS Wor TYPEOUT THE DELETED CHAR. 
BR HA ANOTHER CHAR. 
cs: TST (SP) jj RUBOUT KEY SET? 
HOVE as,9s He A SLASH 
CLR tsP) ss THE RUBOUT 
7S: CMPB 0 s« #25, (3) aie A CTRL U? 
BYpE ; TLU ii a CONTROL “y" 
8S: eRpB , (R3) Bc: GHARACTER A “+R”? 
BNE 3S : BRANCH IF NO 


OZRMEA 
OZRMEA.P11 


1351 105013 
113 bee7o2 104401 001217 


te a 


29-JUL-77 14:18 
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051127 
020127 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 270 0272 
TTY INPUT ROUTINE =e 
CLRB - (R3) ;;CLEAR THE CHARAC 
Wee | STTYIN TYPE SHE INPUT STRING 
a Hao Pr TAROTHER eHAc 
4§: oe ss ? 
BR *:CLEAR THE BUFFER AND LOOP 
3$: move «ches ;;ECHO THE CHARACTER 
5, (R3)+ es OR 
oe $3 COREK FOR 
CLR “10R ) ss CLEDR_ RETURN (THE 1S) 
| Geen Roe seagate 
MOV (SP), -(SP) + ADJUST THE STACK AND PUT ADDRESS OF THE 
HOV 4(SP) eCSP) , i FIRST ASCII CHARACTER ON IT 
RTI : os 
Qs: .BYTE 0 HISToRnGe For ASCII CHAR. TO TYPE 
TTYIN: . : He RESERVE 3 oF yTES FOR TTY INPUT 
C:. 1 740/¢15>< 12) 33 “— 
2 :ASCIZ 7tU7<15><12> CONTROL “U™ 
G: :ASCIZ 7#G/<15><12>  ;;CONTROL “G" 
SMSWAR: .ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ / NEW = 7 
EVEN 


"SBTTL READ AN OCTAL NUMBER FROM THE TTY 
© BGG RARER ERA RAKE RE AAS 


tATHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
HecinGe. IT TO BINARY. 
7% = ROOCT + READ AN OCTAL NUMBER 
i RETURN HERE *:LOW ORDER atts ARE ON TOP OF THE STACK 
;# *:HIGH ORDER BITS ARE IN SHIOCT 
SRDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
MOV ©: 4(SP.,2(SP) ;; INPUT NUMBER 
MOV RO, -(5P) + SH RO ON STACK 
MOV R1,-(SP) : ? PUSH Rl ON STACK 
—c nas bFPUAR BM ROCTe LINE 
: MOV (SP)+,RO *?GET ADDRESS OF IST CHARACTER 
ck Ad ;;CLEAR DATA WORD 
2S: MOVB  (RO)+,-(SP) ; PICKUP THI CHARACTER 
BEQ 3$ +2 IF ZERO OUT 
ASL Rl s;#e 
ROL Re 
Rot OR Tl 
ASL Rl 3; *8 
ROL Re 


OZRMEA - RMO3 FUNCTIONAL aa" PART 3 


OZRMEA.P11 29-JUL-77 14:1 
PREBBLE RBSAR 777° 
BF BS on 


He Reis Hi 


bee p= bs pee 


R 
2 


SES SoBe Ree aaa aa 
-_ 
Fie 
+: 


ee 
be ee 
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ER 
Re ee 


oe Oe te be nde nn Bee Be Be Be hn ne es ee en Be ne Be Be ee be en es hn ee Bo 


MACY11 30(1046) 29-JUL-77 17:39 PAGE 271 SEQ 0273 
READ AN OCTAL NUMBER FROM THE TTY 


;;STRIP THE ASCII JUNK 
;;AD0 IN THIS DIGIT 


+ BG NATOR FROM STACK 
»12(SP) 3 TE RECT 


meet Ta 
poy (SP)+,RO ii ACK INTO RO 
SHIOCT WiRD 0 HIGH ORDER BITS GO HERE 


©» GSE SESE SE S540 SEE SE SE SEE SESE SE SESE SE JE 36 SS SE 3 0 SS 0 9 9 9 2 aE 
AE Slee abl ne Te Tie 18 Tes ss 
; #OF Te OSD OOUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#G0 TO INE. 


I NEW STATUS 
1S MOV _—— RO, -( SP) + Ele 
2(SP),RO 33GET ss 
TST -(RO) ss BY 
MOVB (RO),RO 33GET RIGHT wx TRAP 
aay § (RO),RO 331 ‘A T 
RTS RO ::G0 TO ROUTINE 
s;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
STRAPC: Oy ote S etep) ©  EROVE. THE. PSM DOW 
AY P + ReSTORE THe Pon 


.SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
t8BY THE “TRAP” INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD 


TRAP2 
:iRit=typoc © TRAPSBCLONNGE) TYPE OCTAL NUPBER {WITH LEADING ZEROS) 

SYR ::GAct=T¥PGn «— FRABSAHBANGG} FYBE SeTAt NGBER (88 BERPENE,“eRrP) 

ST¥pon fiGaccstveon © TRAPeOCIOOG) TYPE BINARY CASCIT) NURGER 

SGTSWR ;;CALL=GTSWR © TRAP#7(104407) GET SOFT-SWR SETTING 

SCKSHR ;;CALL=CKSWR © TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 


N 
DZRNEA ROS EUNCTIONGL TEST, PART 3 WACYI1 20(10%6) 29-JUL-77 17:39 PAGE 272 SEQ 0274 
(104411) TTY N INE 
aa HBSS} RDO GER SEA rr 
} Be oS RO ie 


on SSL Pe 


oo St SE-SE-SES6 SESE SE JE SESE SEE SE SE SEE SESE SE SE SE SSE SSE SEE SE SS 0 SS 3 


ese = 
es 
pl 


066420 000024 $PWRON: MOV TLLUP,@ ow sang po Fest 
NOV »- (SP) * PUSH RO ON STACK 
HOV RL, ~(5P) *:PUSH RI ON STACK 
MOV Rat) HE Ae on Tack 
MOV R4,-(SP) $8 RY ON STACK 
HY Ret ak SP) PUSH Beat of STACK 

ress ry eee) 

000024 HOV, SSPWRUP, JUPWRVEC’;;SET UP VECTOR 

BR “2 3 ;HANG UP 


9-36-36 06 9-36 96 96 9 SE 0 0S SS SS 0 a a HE 


i 
Se 
Z 
ai 





MOV TLLUP, QHPHRVEC ; ,SET_FOR FAST DOWN 
4 MOV , SP siGET SP 
4 CLR *:WAIT LOOP FOR THE TTY 
24 1S: Inc SSAVRE jsMAIT Aa THE INC 
112572 MOV (30 +, BSWR >:POP STACK INTO aSWR 
MOV (SP)+, POP STACK INTO RS 
MOV (SP)+,R4 3;POP STACK INTO RY 
MOV (SP)+,R3 ;;POP STACK INTO R3 
MOV (SP)+,Re 3;POP STACK INTO Re 
MOV ( | 3;POP Lvs NTO R 
066260 000024 NOV SSPLRON-DBPMRVEC’ f uP NPOWER DOWN VECTOR 
000340 000026 MOV 8340, SSPURVEC+E ; :PRIO: 
TYPE H THE POWER FAILURE 
SPWRMG: gro SPOWER ;;POWER FAIL MESSAGE POINTER 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
BR 2 ji BEFORE THE POWER DOWN WAS COMPLETE 
047520 042527 SPOMER: “ASCIZ <15><12>"POWER™ ’’ _ 
EVEN 
.SBTTL APT COMMUNICATIONS ROUTINE 
oo REM ME SE EE EE EE EE RRR REESE 
% 11 000001 066702 $ATYi: MOVB 9#81,SFFLG 3370 REPORT FATAL ERROR 
000001 066700 SATY3: HOVE 1, StL G ::T0 TYPE A MESSAGE 
il 000001 066702 SATY4: MOVE 981,SFFLG ;;T0 ONLY REPORT FATAL ERROR 





SATYC: 





ae 


taba 
| 


sas 
=a" 


, 


+ 


aoaud 


(Bro bm Dn Bae pn Pe 


5 seed 


PHo Ot Pm fo P= * be = Be fe bee ge 
> 


FIER Sawa 


_ 
Ps ee A + 
Sy i ! 
nue 
J 


Bae Be De a bm eb Pt 8 ht fe fe bh fh be fe Be P= bo 0 ee oe ee pe 


Sas 


‘ 
mi 
fait 





SceSRLRESeonore 


e 
C 
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000000 
y 
1413 
1 
1 
105037 
ai 1 
012600 
: 
000 
066704 
000200 
000001 
000100 
000040 





001224 
000004 


wr 


3s: 
og: 
10S: BE 
Pet 
BEQ 
118: TST 
BNE 
MOV 
ADD 
INC 
128: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
SMFLG: .BYTE 
SLFLG: .BYTE 
SFFLG: .BYTE 
EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL=100 
TCSUP=' 


-NLIST BEX 


pdSNESRERERRINEGEGES 


B06 
aad 


RL (SP) 


SMFLG 


ae 
=o 


Oe Rin 


SEQ 0275 





;;SUB START OF MESSAGE 

33 LNGTH IN WORDS 
$3 TH IN MAI 

33 TO TAKE . 


FLAG 

IN 0 Rie 
;;POP STACK INTO RO 
. FLAG 


$3 AG 
;;FATAL FLAG 





Sate 


OS4S2e4 O42S20 


O4eS02 
O46S2e 


MACY11 SOKO) 29-JUL-77 17:39 PAGE 274 SEQ 0276 
CONSOLE ME’ S 
-SBTTL CONSOLE MESSAGES 


SCTMSG: 
- ASC 5 <CR><LF>SCANNOT RECOVER THE BAD SECTOR FILES FROM LAST @<CR><LF> 
feels Taare il DEVICE@ 


PROMPT: Ae <CR> (LF> axa 
. 4 a’a 


THRK: “ASCI 
Se nana HELP TEXT (Y OR N)?72 | 
fsck raCHANE AACR rt RDORESS OR VECTOR ADDRESS (Y OR N) 723 
Se Ea ay cm 
> 
UP ear ta eel 
5 Re iter aah 
Ce HE seiay ATE Oe RANGED 
* COR <LF>STYPE (A) TO TEST ALL DEVICES, OR TYPE DEVICEa 


@ NUMBER(S) 
<CR><LF>STERMINATE INPUT WITH CARRIAGE RETURN@ 


3 


4 Ot 000 OO tt 
~ 
w 
= 
w w 


3 BBRIIR RIS 
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DZRMNEA 
DZRMEA.P11 29-JUL-77 


067646 


macy 30(1046) 29-JUL-77 17:39 PAGE 275 
FUNCTI 


ON CODE TABLE 
-SBTTL FUNCTION CODE TABLE 


; THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA - eit 15_IS SET IN THE ony FOR A GIVEN FUNCTION 


a G ZERO, TGLCATING THAT ATA SHOULD NOT HORPPLLY” Be fee 
Tis NO NOT T Bre at RESULT ROE THE CORRAND " wert elie 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI - BIT 13 IS De ee Ee ie nat Keene 
T COMMAND. 


IF OPI ERRORS ARE DURING THE EXECUTION OF THA 
; IvC - BIT le IS IN THE ENTRY FOR A GIVEN FUNCTION CODE 
;IF IVC ERRORS ARE DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
;THE WRITE ERRORS WHICH ARE ENABLED ARE “WLE™, “WCF™, “DPE”, “UPE™. 


IRAE - BIT 10 IS xT IN THE ENTRY om a GIVEN FUNCTION CODE 
‘IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT O09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
br READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF a, 
THE BY THIS BIT ARE “TRE”, “DLT”, “NEM™ 
ISMXF™, *LBT", AND ™ 
; BIT 08 IS NOT USED. 
BIT O7 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 


ELSPA be MES, LE, EE GEE. CN 
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10770 10772 10785 1 12385 12415 12418 12428 12431 13730 
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HELP §=§©6£106520 3301 137308 
+ la 067025 3295 137308 
= 000011 604s 9056 13091 13132 
IRE = 002000 9948 10654 10951 10966 10992 11138 11155 11654 11708 11711 le2le 12227 
tau 000077 11538 10044 10047 10117 10120 


8 
8 
ze _ 
— 
o 
“I 
eS 
_ 
8 





DOd 





DZRMEA - RNOS A aU pe Lg 2 PART 3. MACY11 30(1046) 29-JUL-77 17:29 PAGE 31S 
OZRMEA.P11 29-JUL-77 1 :18” CROSS REFERENCE TABLE -- USER SYMBOLS 
LF. = 00000 10048 10526 10528 11548 11608 11612 11654 11675 11678 
LFOe = 00000e 9238 
LFe4 = 000024 9338 
ILFeé = 000026 g34e8 
ILF3O = 9368 
LF32e = 9378 
= § 
LF36 = r] 
5 940 
a 
= 
LEYS = 9438 
Lee = 9468 
= 9478 
LF64 = 9508 
LF66 = OOODES 9S18 
ILF74 = 000074 ae 
LF76 Ss JU /C 
itt pe 10038 11548 11594 11598 11862 11866 11869 12168 12171 
iL Raeos 11398 
LRGSe= 0 11408 
I 11418 
11428 
11438 
11448 
LRG6Y= C 11458 
ILRGGE= 11468 
ILRG70= 11478 
ILRG72= 11488 
ILRG74= 11498 
JOU /t 1 # 
JOU; eae 3199% 3200% 
= @ 1 12048 
PCK1 = O0000 12038 
IPCKe = 000004 12028 
PC = nnnnin ee: |! 
IR = 000100 +iens 11411 
IvC = 010000. 11108 7021 7033 7126 7136 10569 10570 11173 11296 
12151 12155 12583 12664 193730 
LBC 86. =: 002000 llles 12269 12287 12292 
LBT = 002000 9808 10729 10953 10955 
LF = 000012 80Se 9054 12835 13126 13132 193730 
LS = 000004 10898 11435 11987 
LSC = 004000 llll8 12269 12303 12306 
LST = 000002 10608 11435 11987 
MCLK = 004000 10328 
MCPE = 020000 ll6ie 10299 10316 10329 10332 12066 12069 
= 100 10378 
5 11788 10825 12475 12478 
14 4418 3446% S2e44# 9367 9623% 
lhe ay ihe 9532 960S* 9%6l2% 9673 #£«2137308 
+ 4 = 
MIXED 067756 8440 8697 137308 
MOC = 000400 10358 
MOH = 020000 10678 
MOL = 010000 9788 9544 11234 11244 #11245 11250 11255 11283 11534 


12168 


12174 


11722 


11537 


12185 


11729 


11698 


12188 


11732 


11775 


SEQ 0316 


13730 


11801 


11776 





: 


T, PART 3 Y11 30¢ UL-77__ 17:39 PAGE 316 
UL-77 14:18" CRose REPCAENGE T =~ seh SYMBOLS nn ae 
11783 11788 11947 12128 12289 12542 12543 12565 12570 12641 12642 12646 12651 


RNO3 TI T E03 
Peo ppg Ie 
Jeu 


= 10338 

= 10388 

: iis 

= 188 6407 6538 9592 9815 

= 10368 

= 10348 

= 10S8# 11436 11988 

i 

= iis 10714 12089 12103 12106 

= 

= 1174@ 3517 10281 10285 11063 

= 11758 10699 

= 9228 

= 10658 

= 10468 

: ee 

= 9eS# 11775 11831 11834 119468 12490 12493 
4407 4604 4912 5257 S457 5773 6079 6657 7406 7935 137308 





99i8 10553 11228 11252 11548 11566 11570 11654 11691 11694 11785 12le3 12126 
12567 12648 13730 





so iat ange <eake=aie son ache” Denia midi 


= 9439 
= 9318 932 g24S 
. me 9ssSS_ 10344 «610348» «6610360 «3=68611120)3=—s«11654% 8611659 «6811664 12080 ~= 8612085 
: ies 
= 
= 001000 SB8i8 11946 
= 000200 10S48 
= 020000 9778 7234 7237 7328 7331 9292 9470 11244 11265 11270 11775 11846 # 11851 
11946 12542 12548 12553 12641 12678 12683 
= Arrecs 811s 
a 90S¢8 
2 043772 mae 71 4049 4219 4300 1 4590 4 4 501 1 
1 2264 5882 dgeq 6135 eat4 6394 6 Ps 685 at 3313 
72S4 7349 7515 7597 7775 7855 80393 8117 8287 8366 8S44 8623 8801 
8880 102478 
7 3374 137308 
= 8288 
= 8298 
: ale it enw 
= 
? 1s 1281 
: Ba st 
= 8348 3186 3443 3465 3511 10033 10106 10146 10178 11055 11339 12820 
= 000340 8358 
= 177776 8088 8093 
us 
= i § 
3246 3626 3692 3771 3883 3949 4027 4131 4197 4278 4423 4489 4568 4680 
4P4G 4B24 4928 4994 5075 S220 5291 $369 5473 S29 5569 5637 5676 
$789 S860 5938 6042 6113 6191 6306 6372 6504 6680 6746 6837 6362 


OZRMEA - RNOS FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 317 SE@ 0318 
OZRMEA.P11 29-JUL-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 


earl base 706870777087 7200 7203 7eRB THIS uae 7yS3 7575 7e67 
i Se hUetlCUR COU OC OCR OC wn 
BUTNK poteas ‘oss re eI 40 41 y y2E94412—ssHyBO SS 
cn i a a a a 
2 2 ee oe ene 
li 744 = «7824Ss«7940)«=Ss«BOO8«Ss«wBOBS«SCB18S «= BSB s«B35 
Buus 46 «8S13—s«S 049 Gadex 46 92u7e ««Secce «= Sdee «= «3911O1Gs «1 
PWRVEC= 000024 Gods 320Sk «BOGE «13635% 13634" 13643" 13649% 13661" “13662% 
QSTMRK 057023 3290 3392 : 
RCLSTS 33ig |= 34a3—s«1 16458 
Os 528 3761 SbES 644 7088 #7302 7565 ##7823 #48333 8591 se4B 
RDCHR = 104411 3283 32% )0SgCSC‘<i‘éz TE ODN 36248 
RDLIN = 104412 13656 136258 
RDOCT = 104413 3318 3334 «©3355 «136268 
ROY = 000200 liebe 10188 10189 10295 10298 11386 
READY 006742 3287, «34418 8927 «Ba7s 
= 000005 258 3294 9473 
G= 10441 9123 136088 
B= Aboole e958 
REX = 010000 10498 
RG = 040000 10478 
RGOTPT 137308 
RY s 9507 
RIP = 930 
RLEASE= OO00I2 
RNAS = OOO016 1iz7e 
RMASI 01344 11967 13730 
RMASO © OO1414 14198 
RMBA = OO0004 $ 3470e 3471 3618 3687 3766 3944 412341924273, IS 
ice, 472-741 Ss«*B1s(i‘wSsC*d9BSsC«dSO7O0~ ss S21es« See | OS364 SUES 
Se71 «Co SPBi.«SsC«sBSS)«=S933.—s«éwSs«é1OSsC« iH «OC29B CGPS)? CBM 
Boe? «70d2)S seis 7307s 7414s 7488 7679 «7748~=Ss«7e28)=Ss7943~=é«2Ss«BO 
8191 8260 8339 8448 8517 9596 8774 9396 
ReeaT - DOLase ieee oy 5135 10901 10903 11397 
RMBAO 001402 tiide eave | eabe Rosie 39a7% 4102" 4186" 430%" 4477" 4SS7# 46S1# 4734% 
ueogx 4Ga3% S191e Gecse Suu4e Scope ‘ 6013% . 
giges Geis 67368 s boom Goes 70ers ieee 7353x7464 ce 
feels 73eex Boles B170x Boos * B427% 8611s 9690s Bogs 767% 8847% 
RMCC = 000036 ii34e 
RMCCI 001364 14008 
RMCeD  DOtaS4 14278 
RMCS1 = 000000 Liege 4p07e Me7# 3519 MAES ATER BTR BME MOY eR IGN Na7s 
W4ia 4am CSS. aug s«Neei «= ss4g230«Cs@g]«=SssSo72 = S21S S288) 5366s SB 
SS6h 4««S673.«(«S7B4 «S857 6037 «6110-6188 «= «Ss«369=Ss«GS01 S757 
bau «989s 70HSs«7'17 ui? 7490-«Ss«75:72 ore) 7830 7M CéBOLY 
30 SiN fese Gm BHSL «| OS19 898 ©7087 BBS SM} SH 
10035 10108 10187 11061 
RNCSII 001326 A 10e74 1027 10278 10295 | 10897 19911 19915 10917 10329 10991 10933 
RMCSIO 001376 fu7Sy {Scheu EBB, i es et ce ussee 
Weeds 4736s 4eld% 902% 4gaue SoeSe S194* S2See 52818 S359 SWu7x SSogx Sssox 


DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 318 SEQ 0319 
DZRMEA.P11 29-JUL-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 


LEER EE ee ee ee ee ws 


bk 
8 
ce 
See 
Ras 
— et 
ne 
oe 
ae 
ae 
3% 
33 
43 8 


1 
1eSe9. 12531 = 12533 
RMCS20 CONS 7479% 7563 
RMCS3 = 12138 
RMDA = 000006 11e4%8 3617 3763 3874 SH 4019 4l2@e2 4189 4270 YY 4461 4560 
467 4 481 4919 4986 $067 Sell Se83 830s $361 S464 5561 5780 
5 60 6105 6183 6364 6496 6671 6738 6829 
7ele 730% 7413 = 7485 7 FAT 7825 467842 0—Sss«8009—ss‘«‘«887—s—i1900—=s—s«B G7 
8336 8447 8514 8593 1 9392 
RMDAI 001334 13888 10997 137 
RMDAO 8 001404 14158 he SH 4101% 4393% 4650%  4898% 190% Pa 5759# lee  6269% 4 
69e8% 7167% * 7657% 7921% 8169% 8426s it 11% 89le 
eat 9587 9595% 9647 9774% 9810 10923 10924 11143 11145 11149 12217 12219 
RMOB_ = lells 3474# 750 4432S‘ 1222S 9983 
RMOBI 13H laze 4334 1e4# =6Si31 
RMOC = 000034 11338 3616 ae oon 387 4021 4121 4199 = 4 441 44 4562 
46 4739 «481 491 a0? oe Sel10 S284 dae3 dees 56 
5932 6106 6185 6296 on 6498 ©6670 6831 6985 7091 
7213. 7306 ols cee 75692 7677 7827 79H 80i0 8089 8189 8258 
RMOCI 001362 13998 11 1 
RMOCO §8=—: 001432 14268 3995# 385e# 41008 4392% 4649% 4897% S189* S#4ex 5510% 
SSSi# 5615  S618% S634 % S659# 5758% 6011# 664ee 6927% 7166% 
eee 7886% 7887  7920% 8168% S84eS*  s868e# * 9646 11140 
RMDS = 000012 11258 9283 
RMOSI 001340 13908 723% )06=—so7238)=S ss 7328)=S 7330's 7332 «Ss (See Ss e927 70 SHH 10313 
(eae ee a om 
Hes Hee lime tie ties Hee tis ie He ue ue ie ie 
ee piss 1 iae6 12490 ibaa ipag 12541 12548 1eSSe 12554 1 12569 
12571 12581 12585 12587 12640 12646 12650 12652 ilebbe 1ec666 12667# 12668 12678 
1 12684 13730 
RMDSO 001410 14178 
RMDT = 11308 3552 
eae 1354 13968 3554 3559 3561 13730 
RMOT 1424 14238 
RNEC] = QOOO44 11378 
wert 1372 14038 9895 13730 
RMEC 44e 14308 
RMECe = 11388 9978 
pa 1374 14048 9916 9977, 11447) 12011 =: 13730 
1444 14318 
RHERLI 001342 13518 g4io Hee aa 644 3 6553 73 0G 6777 
see] Saad Ba86 16394 1035 1B3e1 10451 Bes 10554 18597 106le 1 10732 
10758 10773 10788 10841 10860 1083 10951 1096 10981 10992 11120 iile7? 11154 


/ 


- RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 319 
77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 


DZRMEA T 
OZRMEA.P11 29-JUL-77 14:1 
11868 1153) 1leS2 11424 )~=—s«11548 11556 Liss 11555 
Hes Hest Hew Hee 168 eB IR 
UT WR UR Re es ee 
ise IR IBD IBS ie ie lee 1 
1 12567 12648 12759 13730 
RNER1O_ 001412 {tee 7199% 7291% 10348 
I 1 14028 6448 6458 6579 6589 6780 6782 + #«426871 
7138 4=—s_- 7137 3 ie 10346 103 1037) 10627 
1533 ties ti5eG Léae ttdG3 «11882 «= tb55 bas 
12269 12273 «1 12277 12287 12291 ile 12303 
1507 12550 12583 12664 12680 12694 127 12702 
RMERZO 001440 14298 : 
RMLA = 000020 11288 
RMLAI 1346 13938 13730 
RMLAO 416 1e08 
fens” ol Het fs fe gg 
RAARLO | 001422 ieee 6961% 6970% 7067% #7076% 
pais aes 14018 11456 11998 13730 
paar 14 14288 
RHOE = Spodse 11328 3620 3685 #3764 ##$=.3877 363 #j.4wO20 8 4125 
cee aay ie cin) gies «= eaadeee eu? 
7214 5332 16 oer 7358 ey 7 7826 
8337 8450 6516 98594 e774 Ba51 9395 
RMOFI 001360 13988 9888 9890 10748 10858 12381 12457 13730 
RMOFO 001430 4 8 3599s * 4104* 4396% 4653% 490l# 5193% 
isa 6S31% 170%  7395% 7924% 6172%  8429% 
RMR . l3is 11548 11580 11584 11862 11880 11883 12168 
RENE 1 13978 13730 
Ria = D0000e 12088 \ 7 
dGge” idea” «9653543 SBBRHGBTCwRGRCRGH? 
Pees «3088 eik Poa, 1d 
- ale 8261 R B aoa i33i8 R44 : 8775 
arco BB Lap 14138 a2eae Bete * 41 aiaee 4395* 
5192% Sess 5557%  5761# 601 6077 
71698 Zags 760s 7659% 77418  782c% 3 eat g00S* 
ROA 100000 10878 11457 11999 
040000 10888 11457 11999 


Rese 


yas 


ore 


FON REE 
rn os fee eae Be he pe 
a eg 
RE 
o w 
Ba b= bt he pe pe 
oe 
wo 
a fae ae Geet fae hee 


fe at he ps pe ee 


a 


oe 
oo 


8 
g 


3 
bo bs Pe pe 


sbaa 


o 


rue 
_ 


seeaie® 


bs pe Re ee 


rm 


bas bs fe he be 
™N 
os 


sf 





I09 


29-JUL-77 


SEQ 0321 


PAGE 320 
S 


47433 


11 30(1046) 
S REFERENCE TABLE -- USE 


PART 3. MACY11 
CROS 


29-JUL-77 14:18 


OZRMEA - RMO3 FUNCTIONAL TEST 


OZRNEA.P11 


6279. «6653s 7402 
pase Ftgr Fine 
8S60 4698639 «=: 8817 
1722 746 
2680 12695 


6022 

4 

6 

8382 

1470 
50 


5769 
4 
eos 
8303 
267 
258 


S453 
pit 
8133 
20S 
246 


4 
6229 
g0SS 
1194 
2244 


m8 5200 
1 # 

4350 

6151 

7871 

11 

2243 


0 “4 

Bee BS 28 
8 2 

Ee e ae 


Ee 


S258uR Boo az ri : 


S422 


5169 
8662 


3563 


aig” 3457 3497s 3541 





3575 383@ 4080 4372 “629 4877 
be44 6620 6921 7189s 7371 7636 7900 «=—s 8148 =—Ss HOSS 


3486 


12834 


at 


13148 


SSSR ak a e 


NeSeue 
Geos 


ARES 
A ae 


8 13149 13163 13166 13181 
13654% 


134e4# 13641 


3435 





5 eee 





DZRMEA - RMO3 FUNCTIONAL TEST, PART 3 MACY11 30(1046) 29-JUL-77 17:39 PAGE 321 SEQ 0322 
OZRMEA.P11 29-JUL-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS 
1 s x 
10 = 38 
i} = 8428 
SWl2 = 010000 8418 
Sul3 = 640e 98995 
SWI4Y = 8398 
5 s 8 
: BeOS 
= 
SWa4 is es9a 
Sw 0s ' Sse 
= ere 
S tLAeie.e! 
= 000400 goes 
2 001000 eet 
S Las tt 
TAG = fen0nr 10898 
TAGADR= 001114 12708 1277 
TAP os 10668 
Tay = 9618 
T = r} 
TAY = 9538 
eiee 14 8968 
TI 043606 3637 3782 3894 3960 oo 4142 4208 4289 pat 4500 4579 469 
pia tA og days 5005 S086 1 5302 5380 S484 5577 S646 56: 
; 1 ra res 6124 6202 aris rs 6515 Hg 6757 te oe 
oe. 
abe SC ST Ta 
TKVEC = 000060 9038 13307% 13300% 
Cz S048 
Re . Ligge 18599. 10316 10332 10477 #10479 ~ = 10884 
= 
TST < To000 iBeoe 11458 12000 
= 
TSTNMB O0372le 9006% 9007% #93009 91°68 
TSTPRP 037260 3668 3749 J 006 4091 4173 4257 383 4465 4S46 4640 
e317 gous, ses se pane baet Ges e7s3 eels «Sbosa Pose «788 
1 5S ate $178 a 5338 ait ll 5255 8074 gicg 8241 8322 
TSTQUE OO01446 rape oor ee ihe ee oa 343" 77 33 4082 4374 4a7g 
ea auo4 5740 3993 as] 6622 632 ate 373 7638 73902 Pt 8407 
8664 8922 e924% 8928*% 1105 llse 611409 =: 111970 
TST1 34528 13208 
TST1O 46268 13215 
TST1il 48748 13518 
He 1668 136! 
iii Be 
Tet s 13620 
cis 13eee 
T aaa4e 1 
TST, 9ise 1 
TST 1S6e 1 
TST 73688 13225 








KO9 


SEQ 0323 


es nS R 3 5 
a a Bsa § ; 
mates | ae ug & } 
Haske, 8 a as 8 5 


3308 3314 
8008 
1 
11894 
1299 
2581 
8085 
5281 
8007 
S447 
12348 
137308 
4081 


9110 
y 
goss 
; ie 
3393 
9003 011 
7291 
10259 
764 
7562 
i 
180S 
yf 4 
431? 
10611 
3939 
6735 
7b 
10892 
3439% 13383 
3325 


: a a 
ti ci if GR BRE fs 
<a Si bf me meme 
id Mag bid Seiwa sz 
sit ER UME OR 
e 

x 


PART 3 MACY11 30(1046) 
r 
re 
7477 
7477 
BG 
Re 

as 
4307 
1006 
er 
Be 
a 
zn 
: 
3315 


‘eae & 
Se terres ceasiants SAEDEIey os tntal 


ead ed ead sd ot 


=F meg oe Roe tl el 


NS 


- RMO3 FUNCTIONAL TEST, 
Pll 29-JUL-77 14:18 


-Guseee «=| ee 


LE certiocerfi et eitie un 





SEQ 0324 


eure ES 


SRaSESNSAeeE RT 


“es sates 


ed ed nd a wee Oh ad we Oh ed ed 


seasahunneragee 


Arico APEALL ASHE RS 


panes Seis 


a eee eh med eG me wd we Oy 


rane Sear 


PACS] ADERASLASHSE AS 


Reed 
UGEESERREEE SEE 


8149 8406 8663 
13097 13132 13260 13285 


9121 


9101 
13708 


PauserereNeeNTe _ 


; acauaeeneeon es 
uel Sidaditiatioaes 


a dd dt wt HO 


c 
iy Pee yee SN 


ad oe a a md ed a) Oa) ed a OG Oe ey Od 


Ea g GAYS aa 


eed eh NG ee Sf od eh ee en eG a) ed eae ee 


PALS c ue eas Sa 


end 9 can eH] ot od cae weed a oh SQ a a 


3208 3209 


# 13118 13128 13138 
tai 
9032 3070 
3380% 


9080 )=—_«: 9093 


om 
CO 
ou 


3207 


13124 131298 


3193 = 3201 


13115 


~- 


p SE a aan 
BS DRUG EAR Wanda Sh Gab tak ASE Aegean RAR gpene apg 





MO9 


OZRMEA - RMO3 FUNCTIONAL TEST, PART 3  MACY11 30(1046) 29-JUL-77 17:39 PAGE 324 


ssoSURSUROEELR: 


SG 8 ak et rd ad eh wd ef nd od 


SUL arenas 8 


6161% aH 
7541% 19% 


4S37% 4712 


kk nd ad ad ed ad wd gd 


6918% 13183 13200# 


eo7ie 
74S 


dG cm ed Oe Od ed oe SS Sd 


eve eas ee 


aed ey nd ome Gd eh ed a a I 


Alogi tgaay ie 


a2? 


FG ed ad ad a et Ht He 


See et 


Rd Ce ra Or mG ag oad og eg ed OS) es J 


7152% 7178% 
874S# 


8S70# 


See aL 


A) eG ed OS ed ed Od OG 


fitted hse 
eit Se 


4 
eee ae 


eae om ed oe co ag ad Om Od a eB 


HO# 


7047 
13% 8488 


14 


le 


Basis 83 


aA 
Sess Socce Eanes ese Selves Seals S908 


et 


q iea Ss 


ed a een 9 eh 9 ed Sot wesegy 


CROSS REFERENCE TABLE -- USER SYMBOLS 
12818 13137 13177 13179 131 13207 §=13247% 13285 
12878 eat 13179 13202# 13207" 


13254% 13255* 13256 13285 


8965 13253% 13285 
®@ 3209 4246% 4363% SO43# S160% SS07% SSSe% S616% S660*% 13201% 13276 13278 
13768 


iberee tera 13706 § 13715# 137238 


[adh eee Ff aaa 
se ei Te 


29-JUL-77 14:18 





SLPERR 001124 
SMADR1 001254 


E 
" 
2 


DZRMEA = RMO3 FUNCTIONAL TEST, PART 3 MACYI1 30(1046) 29-JUL-77 17:39 PAGE 325 SEQ 0326 
DZRMEA.P11  29-JUL-77 14:18 CROSS REFERENCE TABLE -- USER SYMBOLS | . 


Sm 


I 
6408 8665 


13076 13198 13262 


9 


rere ae 


i 
a 13695 
13698% 13710 13714% 


oS 
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